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Guida all’input dei programmi sullo ZX Spectrum 


le parole " > imprese tre poter lesi graffi .■.ano: ù • (Orane* grafie^ prò 
definì (G) « (asto (nutv.e*o v-t-ue^t' (a G;. 'o necessitò d< premere coste 
insieme a CAPÌ SH.'f l (e^enluolc $ precedente 'a G) e ■I •■.amerò di r.pe’.i 
/ioni dei tosto ru meste (e. et taci le ramerò a'i’inwc del'a "parola ) I c a 
.•ciceri graiii. definii da' programma suro < t .rie iridiceli de Cedere me>u 
'.cole (CO' rispondenti o' tosto de nscre) si iti . • • jr 


| Quando teggetc~"|L Premete { 


Vedrete 


(Gl) 

{G 2} 

{ G 3 ) 

{ G 4 } 
{G5 } 
(G6) 
(G7 ) 
(G8) 
(SG1), 


05 

OD 

i 3 H 

OJ 

EU 

OH 

EDI 

ET] 

r-- 1 r- t - m 


U 

■zu i:. n 

{SG2 } ! 

S« non lift* 
sii In modo 

E 

ZD EB 

( SG3 } 

»<«!•« H«dO 
contempo'» 

r 

..T- j n 

(SG4 ) 
(SG5) 

««omenti 
CAPS SHIfl 
«9 

E 

r 

za oj 


E 

b_ LI 

{ SG6 ) 


E 

za [« fu 

(SG7) 


E 


{ SG8 ) 


E 

l a 1 1 



■ 

I 

S 





r 

i 



Se «c.H» 
«Min di' 
modo C. 
UMtdilf 11 


Quando leggete ][ Premete 


Vedrete 


A 


1 A 

B 


I 9 

C 


le ! 

D 


1° ] 

E 


1 1 

F 


Ir 

G 


l G 

H 


1 H 

I 


I | 


5# «or liete 


J 

pi in modo 

1 ** 

— 

0. entrateci 


K 

ttMMC lindo 

1 M 


contempo-* 

1 ^ 


neomenie 


L 

CAPS SHIFT 

[l ! 

— 

e 9 


M 


Fa 

N 


In 

0 


lo 1 

P 


1 p 

Q 


lo 

R 


In 

S 


|s 

T 


( 1 1 

U 


| u i 


Simbolo grafico 
definito nel 
programma in uso. 


S« do»«te 
utCMe di' 
modo C. 
ich.MCiit* 9 


Guida per l’input dei programmi versioni VIC IO e €64 


Notate che i listati contengono “parole “ rac¬ 
chiuse tra parentesi graffe { }. Tali parole 
rappresentano caratteri di controllo come 
mostrato nel sottostante riquadro. Se sono 
precedute da un numero, questo indica il nu¬ 
mero di volte che quel tasto deve essere pre¬ 
muto. Se il simbolo è sottolineato deve essre 
premuto contemporaneamente a SHIFT 
mentre se è racchiuso da [( )] deve essere 


premuto contemporaneamente al tasto 
COMMODORE. Inoltre , se tra parentesi si 
trova un carattere alfabetico “solitario", 
questo dovrà essere premuto contempora¬ 
neamente al tasto CONTROL. 

Con questo sistema di codifica, sarà molto 
più agevole copiare i listati senza faticose e e 
dubbie interpretazioni di caratteri grafici e di 
controllo del cursore o dei colori. 


{CLR } 
{HOME} 
{SU} 
{GIU* } 
(SIN) 
{DES } 

{RVS } 
{OFF} 

{BLK } 
{WHT } 
{RED} 


ClR/HOME 


SHIFT 


CIR/HOMi 


li 


C=CR$R=> 


fm q 
GEI □ 


[ CIRI 

m 


IO 

CTRl 


| CTRl 

0 


G 

{C YN } 

0 

{ PUR} 

n 

{GRN } 

E 

{BLU} 

il 

{YEL} 

□ 

C < 1 > 1 

E 

t<2>] 

■ 

{<3>] 

■ 

l<4>] 

m 

[ < 5 > ! 


(<6>] 


SHIFT 


CRSR U 


SHIFT 


C=CRSR=3 


CTRl 

I 1 


[ CTRl 

IH 



1 CTRl 

m 

^■1 


1 CTRl 

Fi 

E_ 1 >■ . 

CIRI 

ia 


HO 

HO 

HO 

HO 

HO 

HO 



{<7>] 

i 

(<8>) 

□ 

{FI} 

B 

{F2} 

SS 

{F3 } 

□ 

{F4 } 

15 

{F5} 


{ F6 } 


{ F7 } 

E 

■1 

{ F8 } 


HO 

□ 

HO 

■ ■ 
■ ■ 

m 


m 

s 


■ 

m 

e 


II 

EB 

SI 

w 

II 

CE 

■ 

















































































































é°PPta 4 

F xtended Bas> 4? T1-99/4A $ 

4? T1-99/4A Q 

6/48K 

48K 

joystie 

Joystick 

Stampante 
opz onale 

Inespai so+ 
joystick 


Sinclair— 

Spectrum 

li 

Sinclair - 

Spectrum 

IO 

C64= 

19 

C64z 

11 

W NOI 

18 

r l N:|il 

19 
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Duello aereo 



ummx- 


[ ritornato il barone Rosso 1 Sai et e proprio voi 
il piloto destinato ad abbatterlo? Chissà! 
Scopo del gioco, che e per due concorrenti, e 
quello di colpire l'avversano durante una bai 
taglia aerea (lo schermo del computer rappre¬ 
senta il c lelo). Ciascun giocatore ha un etereo 
plano che controlla con la manopola della pad 
die; premendo il pulsante, invece, /ancia i prò 
pn missili. Che altro? Per vincere si deve colpi 


re Power sano 5 volte con i 1 6 missili a disposi¬ 
zione. 

Attenzione' Pei evitare che il vostro aereo va¬ 
da in collisione contro le pareti del monitor e 
per facilitare le vostre manovre di accerchia¬ 
mento, quando supererete il limite dello scher 
mo. magicamente riapparirete sull'altro lato. 
Si può giocare a IO diverse velocita, ma e me 
gho tentare la quinta o Ia sesie all'inizio. 


10 

GOSUB 6000 


1 060 

I F 

DCI) = 0 THEN DCI) = 16: 

20 

POKE 232,01 PQKE 233,3 



GOTO 100U 

22 BA » 0 sPC<1) » 3 


1070 

IF 

DC1) = 17 THEN DCI> = 1 

23 PC < 2 ) » ó 


1080 

ON 

DCI ) GOTO 1101.1102.1103 

24 

HOME 



, 1 104,1 105., 1 106,1 107,1 108,1 1 

27 S 

- 2 



09,1110,1111,1112,1113,1114, 

20 R2 « 3 



1 1 1 5\ 1 1 1 6 

152 

INPUT "NUME DEL PRIMO GIGCAT 

1101 

A = 

1:B = - 2: GOTO 1120 


ORE ? M jA* 


1 102 

A = 

1 :B = - 1 : GOTO 1120 

154 

INPUT “NOME DELL'ALTRO GIOCA 

1103 

A = 

2 :B = - 1 : GOTO 1120 


TORE? M |B* 


1 104 

A = 

2 :B = 0 : GOTO l120 

160 

INPUT "VELOCITA'(l-10)? " 

;K 

1 105 

A = 

2 : B = 1 : GOTù 1120 

170 

R - 6iSW - 0 


1106 

A =* 

1 :B = 1 : GOTO 1 120 

180 

SChLE* 3 


1 107 

A = 

1:B = 2: GOTO 1120 

1 90 

HGR 


1 108 

A = 

0:B = 2: GOTO 1120 

195 

HCOLOR- BAI HPLOT 0,0* CALL 

1 1 09 

A = 

- 1:B * 2: GOTO 1120 


62454 


1110 

A = 

- 1 :B = 1 : GOTO 1120 

20 0 

HOME s VTA6 21: PRINT Afc, 

» n 

1111 

A = 

- 2:6 = 1 : GOTO 1120 


;B* 


1112 

A = 

- 2:B = 0 : GOTO 1120 

300 

XC 1 ) *= 20 i Yc 1 > = 120 


1113 

A = 

~ 2:6 = - 1 : GOTO 1120 

310 

X (2) « 160: Y C 2 ) « 120 





320 

D<1) » 1 6 i D( 2) 33 16 


1114 

A = 

- 1 :B = - 1 : GOTO 1120 

400 

FOR l - 1 TO 2: RGT= D<I) 

* 

1115 

A = 

“ 1 :B = - 2: GOTO 1120 


4i HCOLOR* PC<1) 





405 

HC I ) = 0:M(1 > = 1 6 


1116 

A = 

o 

OD 

II 

1 

ro 

41 0 

ORAW 1 AT X<I ) ,Y CI) S next 

i 

1 1 20 

X< I ) 

= X(1) 4 K * A 

420 

VI AB 231 PRINT "PREMI UN 

TAS 

1 1 30 

IF 

XC I ) > 278 THEN XC 1) = X 


TO PER INIZIARE": GET C* 



C I ) 

- 278 

500 

FOR I * 1 TO 2 


1 140 

IF 

XCI) Si THEN XCI) = X<I 

505 

J = 3 - I 



) 4 

278 

510 

6ÙSUt> 1000 


1 1 5u 

Y< 1 > 

= Y < I > 4 K • B 

520 

NEXT I 


1 1 60 

I F 

YC I ) > 158 THEN YCI) =» Y 

530 

IF ÒU = 1 OR H(l) = 5 OR 

H < 2 


< 1 ) 

- 158 


> = 5 THEN 4000 


1 1 70 

IF 

YC I ; < 1 THEN Y < I > «= YC l 

540 

GOTO 500 



) 4 

1 58 

1 000 

HCOLÙR= BA: ROT= D(I> * 

4 

1 1 90 

HCOLOR- PC(I)i ROT= DCI) * 

1010 

DRAUI 1 AT X( I > ,Y< I > 



4 


10 20 

C = PDL <I - 1 ) 


120 0 

DRAUJ 1 AT x ( 1 > , Tf ( I ) 

1030 

IF C < 20 THEN D(I) = DC1) - 

1 250 

I F 

mBS <Xt l ) - XC J) ) < R2 


1: GOTO 10 60 


1 Ù 40 


IF C 
♦ 1 


> 235 THEN CK I ) = DC I > 


AND *6S (YU) - Y(J)) < R2 
THEN 250U 


4 





















1300 IF PEEK (1 - 16286) < 128 
THEN RETURN 

1305 IF M(l) » 0 THEN RETURN 
1308 M<1) * M<1) - 1 
130? VTAB 23i PRINT H<1> ; " CENTR 
I M ;M(1)t" RAZZI ";H< 2);" CE 
NTR I ";M< 2) J M RAZZI M 
1310 XM = X<1> ♦ AiYM » Y(I) ♦ B 
1315 FOR L - 1 TO 40 
1320 XM = XM ♦ AiYM - YM ♦ B 
1325 IF XM > 278 OR XM < 1 OR YM 
> 158 OR YM < 1 THEN 1400 
1330 HCOLOR— 5i DRAW 3 AT XM, YM 
1340 IF ABS < XM - X < J)) < R AND 
ABS <YM - Y(J>) < R THEN 20 
00 

1345 HCOLOR= Bh> DRAW 3 AT XM,YM 
I350 NEXT L 

1400 IF MCI) = 0 AND M<2> = 0 THEN 
PRINT "AVETE FINITO I RAZZI 
“ : SU) = 1 
1410 RETURN 
2000 H( I > = H( 1 > + 1 
2010 G0SU6 3000 

2100 VT AB 23s PRINT H(1 ) ;" CENTR 
I - ;M(2>; H RAZZI ";H<2>;“ CE 
NTR1 ";M(2);" RAZZI " 

2200 IF H(I) <5 THEN 1400 
2210 RETURN 
2500 GpSUB 3000 

2510 PRINT "VI SIETE SCONTRATI I 
N VOLO! ! ! !• 

2515 SW « 1 
2520 RETURN 


3000 FUR N = 1 TO 2 
3005 FOR L = 1 TO 5 
3010 HCOLOR= L: SCALE= Li DRAW 2 
AT X<J),Y<J> 

3020 NEXT L 
3030 HCOLOR= BA 
3040 FOR L 5 1 TO 5 
3050 SCALE* Li DRAW 2 AT X(J),Y< 
J) 

30Ó0 SCALE= S 
3070 RETURN 

4000 IF SW = 1 THEN PRINT “NESS 
UN VINCITORE GOTO 410 

0 

4010 IF H<1) = 5 THEN PRINT A*; 
" E y IL VINCITORE!";: GOTO 4 
100 

4020 PRINT 6*; w E' IL VINCITORE! 

* • 

4100 INPUT " GIOCHI ANCORA 

? " ; C* 

4110 IF LEFT* <C*,1> = "S" THEN 
160 

4125 TEXT : STOP . 

6000 FOR L = 768 TO 81? 

6010 READ N: POKE L,N 
6020 NEXT 
6025 RETURN 

6030 DATA 3,0,8,0,21,0,48,0,36, 
18,55,55,?,?,60,60 f 54,62,?,7 
,0 

6040 DATA 18,62,60,3,45,36,55,6 
3,44,44,37,39,45,46,46,44,54 
,3?,55,46,4d,52,62,62,36,55, 
0,63,33,36,0 


Bargrapher 


« TI-99/4A 


I deh di sondaggi, inchieste, votazioni ecc.. con 
i rispettivi calcoli percentuali ed i conseguenti 
raffronti sono sempre qualcosa di difficile da 
comprendere ed analizzare, c meno che le on¬ 
de cifre numeriche vengano visualizzate in 

1 o 

qualcosa facile da leggere e soddisfacente per 
"la parte" che. vuole l'occhio. 

Bene, questo programma In TI BASIC., scritto 
nella maniera più comprensibile possibile per 
mette, seguendo le istruzioni incluse, di otte¬ 
nere istogrammi a borre sufficientemente pre¬ 
cisi ed anche, perché no. es{eticamente grò 


devoti. Nel listato sono inseriti dei dati per da¬ 
re un 'idea delle possibilità del programma che f 
con qualche semplice modifica, può rappresero 
Lare graficamente anche più delle quattro 
"barre" previste. 

È possibile anche, seguendo le istruzioni e pre 
monco il tasto S al momento opportuno, ot 
tenere una slampa sa carta del grafico visua¬ 
l/zzato sullo schermo. 

In definitiva, quindi, la semplice pazienza di 
digitazione dei listato vi offrirà innumerevoli pos 
siMtà. con il semplice ausilio del vostro TI 99. 
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100 REM TI-09 BASIC erg 
1 10 CALL CLEAR 
120 CALL SCREEN(9) 

130 PRINT TAB(6);”############## 
##” 

140 PRINT TAB(6); ” # BARGRAPHER 
150 PRINT TAB (6) ; "IH #**####*» t« 


##” 

160 PRINT Piu • di 7000 by 
tes sono ri- servati per nuovi f 
ilcs• N :::::: M E'possibile avere u 


na stampatici grafico visualizzat 
o. " : : : : 

170 PRINT TAB(8);"PREMI UN TASTO 

ii 

1 80 CALL KEY(0,K,S) 

190 IF S = 0 THEN 180 
200 CALL CLEAR 

210 PRINT TAB(7) ;"****I5TRUZIONI 
****”:: u ie Subroutines in cui so 
no contenuti i dati che e'pos- 
sibile cambiare sono distin-te d 
a questi simboli:-*-*.” 

220 PRINT : :"11 titolo va inseri 
to negli spazi -TESTATA$-; Per sp 
osta-re la testata agire sulle 
linee seguenti:-FI LA- e -COL-." 

230 PRINT : : :"PREMI UN TASTO" 

240 CALL KEY( 0 , K , S ) 

250 IF S = 0 THEN 240 
260 CALL CLEAR 

270 PRINT :”Le didascalie vanno 
inseriteneg1i spazi -DIDA$- e po 
si- zionate agendo nei vari -FI- 
e -CO-.” 

280 PRINT "Esistono 2 tipi di su 
brouti-ne per le didascalie: una 
leposiziona verticalmente, 1* a 
ltra orizzontalmente.”::: 

290 PRINT "I dati per le barre e 
le percentuali vanno inseriti n 
ei -DATA-de1la linea 900.”::"I c 
olori per le barre si possono mo 
dificare agendo su -BARCOLOR1 - 

, ecc.” 

300 PRINT TAB(8) ; : : :"PREMI UN TA 
STO” 

310 CALL KEY ( 0 , K , S ) 

320 IF S = 0 THEN 310 
330 CALL CLEAR 

340 PRINT ::::”E*anche possibile 
avere una copia stampata del gr 
afico v i sua 1izzato;semplicement 
e premendo -S-,dopo aver specif 
icato il dispositivo colle-” 

350 PRINT ”gato, nella LINEA 259 
0 al posto di OUTDI SPOSI TIVO$. 

"PREMI UN TASTO PER IN 

I ZIARE” 


360 CALL KEY(0,K,S) 

3 70 IF S = 0 THEN 3b0 
380 CALL CLEAR 

390 GOTO 810 
400 REM 

* _ ft 

410 REM *-SU BROLI TI NE PER 

DIDASCALIE-* 

420 TESTATA1$=”TSCRIZIONI” 

430 TESTATA2$ = ”RHO-SCUOLA” 

4 40 FI LA = 3 
450 COL=18 

460 DIDA$ = ”SCUOLE" 

470 FI = 1 2 

480 CO=l1 

490 GOSUB 2570 

50 0 DIDA$ = "ELEM.STAT." 

510 FI=12 

520 CO= 25 

530 GOSUB 2570 

540 DIDA$ = "1974/75” 

550 FI = 22 

560 CO = 4 

570 GOSUB 2620 

580 DIDA$=”1977/78" 

590 FT=23 

600 CO=l2 

610 GOSUB 2620 

620 DIDA$="1981/82” 

630 FI= 22 
640 CO = 20 
650 GOSUB 2620 
660 DIDA$=”" 

670 FI = 2 3 
680 CO=l8 
690 GOSUB 2620 
700 DinA$=”” 

710 11=22 

720 CO= 26 

730 GOSUB 2620 

740 DIDA$=”1984/85” 

750 FI = 23 
760 CO = 26 
770 GOSUB 2620 
780 RETURN 

790 REM *-FINE SUBROUTINE 

PER DIDASCALIE-* 

800 DATA 5197,94,4264,92,4099,89 

,3408,87 

810 BARCOLOR1=5 

820 BARCOLOR2=ll 

830 BARCOLOR3 = 7 

840' BARCOLOR4 = 3 

850 SCALA = 500 

860 SCALA$=”9 876543210" 

870 VERTICI$=”VOTI IN” 

880 VEKTIC28 = ”MIGLI AIA” 

890 REM *- I CARATTERI 91, 

92 E 93 SONO DISPONIBILI PER ALT 

RI CONTRASSEGNI-* 

900 DATA 91,0000000000000038,92, 
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OOOOOOOOOOOOOOFE,93,OOUOOOOOOOOO 

0038 

910 REM 

* - * 

920 DATA 94,FF0000000000003C,95, 
D1E5FF0018BAFF20,96,FFFFOOFFOOOO 
FFOO,97,COCOOOFFOOOGFFOO,98,0000 
OOFFOOOOFFOO 

930 DATA 99,030300FF000OFF,104,0 
0002E49413E0033,105,4C487F004149 
497F,106,C7F507F0F505C5F5,107,00 
000000000000FF 

940 DATA 112,COCOCOCOCOCOCOCO,11 
3,00,114,0303030303030303,120,CO 
COCOCOCOCOCOCO, 1 21 , 00,1 22,030303 
0303030303 

950 DATA 128,COCOCOCOCOCOCOCO,12 
9,00,130,0303030303030303,136,CO 
COCOCOCOCOCOCO,137,00,138,030303 
0303030303 

960 DATA 144,FFFFOOOOOOOOOOOO , 14 
5,FFFFFCECFCFCCQC , 14b,COCOCOCOCO 
C0C0C,1 4 7 , COCOFCFCECFCB'FFF, 1 4 8,0 
00000000000FFFF 


970 DATA 1 49,03033F3F373FFFFF,15 
0,0 303030303030303,1 51 , FFFF3F373 
F3F0 30 3,1 52,00000000000000FF,1 53 
r FF 

980 RESTORE 900 

990 FOR K = 1 TO 35 

1000 READ NO_CARATTERE,PAT$ 

1010 CALL CHAR(NO_CAHATTERE,PAT$ 

) 


1 020 
1030 
1 040 
1 050 


NEXT K 

CALL COLOR(9,2,14) 

CALL COLOR(1 0,2,8) 

CALL COLOR(11,2,BARCOLORl ) 


1 060 CALL COLOR (12,2, BARCOI.OR2 ) 


1070 CALL COLOR(13,2,BARCOLOR3) 


1080 CALL COLOR(14,2,BARCOLOR4) 


1090 CALL 
1100 CALL 
1110 CALL 
1120 CALL 
1130 REM 

LIATO-* 

1 140 COLO = 1 


COLOR(15,16,8) 
COLOR(16,16,8) 
SCREEN(8) 

CLEAR 

*- SFONDO 


E CRIG 


1150 CALL MCHAR(21 ,COLO, 96,33-CO 
LO) 

1160 FOR FI=20 TO 2 STEP -2 


1170 CALL HCHAR(FI,COLO+1,152,30 

) 

1180 NEXT FI 

1190 CALL HCHAR(1,COLO+1/l53,30) 


1 200 REM *- SCALA VERTICALE 

_ * 


1210 DIDA$ = SCALA$ 


1 220 FI ■= 2 
1 230 CO = 2 
1240 GOSUB 2570 

1250 REM *-CONTRASSEGNI - 

_ * 

1 2bO CALL HCHAR(23,COLO,105) 

1270 CALL HCHAR(22,COLO,104) 

1280 CALL HCHAR(23,32,106) 

1290 CALL HCHAR(22,32,95) 

1300 FOR FI=20 TO 2 STEP -2 
1310 CALL HCHAR (FI ,001.0,92) 

1320 CALL HCHAR(FI-1,COLO,91) 
1330 CALL HCHAR(FI,32,92) 

1340 CALL HCHAR(FI-1,32,93) 

1350 NEXT FI 

1360 CALL HCHAR(I,COLO,94) 

1370 CALL HCHAR(1,32,94) 

1 380 REM *-DIDASCALIE -- 

_ * 

1390 GOSUB 420 

1 4 00 REM *-TRACCIATURA I STO 

GRAMMI-* 

14 10 MASTER 1$="00000000000000FFF 
F F F F F F F F FF F F F F FC OC OC OC OC OC OC OC OC 
0C0" 

1420 MASTER2$="7F00497F0001487FF 
FFFFFFFFFFFFFFFOOO00000000000000 
000 " 

1 4 30 MASTER 3$ = "004F79004F007FOOF 
FFFFFFFFFFFFFFF03030303030303030 
303" 

1440 RESTORE 

1450 FOR BAR=1 TO 4 

1 460 CO = 7*BAR 

1470 READ VOTI,PKRCENT 

1480 REM RISE 

RVATO PER LETTURA FTLES 

1490 REM RISE 

RVATO PER GESTIONE DATA 

1500 BARALT=VOTI/SCALA 

1510 YY=INT(BARALT) 

1520 AVANZO=BARALT-INT(BARALT) 

1 53 0 PATTERNCIMA=1+INT((AVANZO* 8 

)+. 5 ) 

1 540 IF YY = 0 THEN 1790 
1550 IF YY>19 THEN 1 560 ELSE 168 
0 

1560 Z=YY-20 
1 570 YY = 21 
1580 GOSUB 2670 
1 590 YY = Z 

1 600 DIDA$ = "FUORI" 

1610 FI= 2 

1620 GOSUB 2630 

1 630 DIDA$ = "SCALA" 

1 640 F*I = 1 
1650 CO=CO+l 

1660 GOSUB 2630 

1670 IF Z>1 THEN 1680 ELSE 1690 
1680 GOSUB 2670 

1 690 POS IZIONE= 2* PATTERNCIMA*l9 
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1 700 BARCAPO$ = SEG$(MASTERi $,POSI 
ZIONE,16) 

1710 CALL CHAR(107+BAR*8,BARCAPO 

$) 

1 720 BARCAPO$ = SEG$(MASTER2$ ,POSI 
ZIONE,16) 

1730 CALL CHAR(108+BAR*8,BARCAPO 

$) 

1740 BARCAPO$=SEG$(MASTER3$ r POSI 
ZIONE,16) 

1 750 CALL CHAR(109 4-BAR* 8,BARCAPO 

$) 

1 760 CALL HCHAR(21 - YY,CO-1 ,10 7 + B 
AR*B) 

1 770 CALL HCHAR(21 - YY ,CO,108 + BAR 
* 8 ) 

1 780 CALL HCHAR(21-YY,CO 4-1 ,10 9+B 
AR* 8 ) 

1 790 POSIZIONE®2*PATTERNCIMA-1 
1 800 BARTOPS =SEG$(MASTER1 $,POSIZ 
IONE, 1 6) 

1810 CALL CHAR(1 074 BAR,BARTOPS) 

1 820 CALL HCHAR(20-YY,CO-1 ,10 7 + B 
AH,3) 

1 830 IF PATTERNCIMA< >8 THEN 1880 


1 840 CALL CHAR ( 1 07 4- BAR *8, " FFFFFF 
FFFFFFFFCO") 

1 850 CALL CHAR ( 1 084-BAR*8, "FFFFFF 
FFFFFFFF00") 

1 860 CALL CHAR ( 1 0 9 4-BAR* 8, "FFFFFF 
FFFFFFFF03") 

1870 GOTO 1940 

1 880 IF PATTERNCIMA< >9 THEN 2000 


1890 IF YY=19 THEN 2000 
1900 CALL HCHAR(19-YY,CO-1,107,3 
) 

1910 CALL CHAR(107+BAR*6,"FFFFFF 
FFFFFFC0C0") 

1920 CALL CHAR(10tì+BAR*8,"FFFFFF 
FFFFFF0000'* ) 

1 930 CALL CHAR ( 1 09+BAR* 8 , "FFFFFF 


FFFFFFO 30 3 

l") 

1940 

CALL 

HCHAR( 

AR* 8 ) 



1 950 

CALL 

HCHAR( 

*8) 



1 960 

CALL 

HCHAR( 

AR * 8 ) 



1 970 

CALL 

HCHAR{ 

AR * 8 ) 



1 980 

CALL 

HCHAR( 

*8) 



1990 

CALL 

HCHAR( 

AR* 8) 



2000 

CALL 

HCHAR( 

2010 

CALL 

HCHAR( 

2020 

CALL 

HCHAR( 


20- YY ,CO- 1 , 1 074-B 
20- YY ,CO , 1 084-BAR 
2 0- YY , C04-1 , 1 094-B 
21 -YY,CO-1 ,10 4 +B 
21 - YY, CO , 1 054-BAR 

2 1 - YY , CO4-1 , 1 064-B 

21,CO-1,97) 

21,CO,98) 

21 ,C04-1 , 99) 


2030 DIDA$»STR$(PERCENT)&"%" 

2040 IF YY< 5 THEN 2050 ELSE 2070 

2050 FI"17-YY 
2060 GOTO 2080 
2070 FI■19-YY/2 
2080 GOSUB 2570 
2090 DIDA$«STR$(VOTI) 

210 0 FI « 2 4 
2110 CO*CO-2 
2120 GOSUB 2620 
2130 NKXT BAR 
2140 DIDA$*VERTIC1 $ 

2150 FI■3 
2160 CO* 3 
2170 GOSUB 2620 
2180 DIDA$=VERTIC2$ 

2190 FI = FI 4-1 
2200 CO=CO-l 
2210 GOSUB 2620 

2220 REM *-RIQUADRO TIT 

OLO-* 

2230 Li=LEN(TESTATA 1 $) 

2240 L2=LEN(TESTATA2$) 

2250 IF Li< L 2 THEN 2260 ELSE 227 
0 

2260 Li=L2 

2270 CALL VCHAR ( FI LA , COL4-L1 ,150, 

2) 

2280 CALL HCHAR(FI LA-1 ,COL+Ll , 1 5 
1) 

2290 CALL HCHAR(FI LA-1 ,COL, 1 44,L 
1) 

2300 CALL HCHAR(FILA-1,COL-l,145 

) 

2310 CALL VCHAR(FILA,COL-1,146,2 

) 

2320 CALL HCHAR(FI LA,COL,32,Li) 

2330 DIDA$ = TESTATA1 $ 

234 0 FI s FI LA 
2350 CO =COL 
2360 GOSUB 2620 

2370 REM *- C'E' UNA SECONDA L 
INDA? 

2380 IF TESTATA2$ = " *’ THEN 2390 E 
LSE 2430 

2390 CALL HCHAR (FI LA 4-1 , COL- 1,14 7 

) 

2400 CALL HCHAR (FILA4-1 ,COL,148,L 
1) 

2410 CALL HCHAR (FILA4-1 ,COL4-Ll , 1 4 

V 

2420 GOTO 2500 

24 30 CALL HCHAR ( FI LA4-1 , COL, 3 2 , Li 

) 

2440 DIDA$=TESTATA2$ 

2450 FI=FILA41 
2460 GOSUB 2620 

2470 CALL HCHAR (FILA4-2 , COL- 1 , 1 47 

) 

2480 CALL HCHAR ( FI LA4-2 , COL , 1 4 8 , L 
1 ) 
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2490 CALI, HCHAR (FILA+ 2 ,COL+Ll , 1 4 
9) 

2500 CALL KEY(0,K,S) 

2510 IF S=0 THEN 2500 
2520 IF K = 8 3 THEN 2720 

2530 REM *- 

_ _ _* 

2540 REM RISERVATO PER CHIUSURA 
FILES 
2550 END 

2560 REM ***FINE***FINE***FINE* 
* * FI NE * * * 

2570 REM SUBROUTINE PER 

DIDASCALIE VERTICALI 

2580 FOR P=1 TO LEN(DIDA$) 

2590 CALL HCHAR(FI+ P-1,CO,ASC(SE 
G$(DIDA$,P,1))) 

2600 NEXT P 
2610 RETURN 

2620 REM *- SUBROUTINE PER DI 

DASCALIE ORIZZONTALI 

2630 FOR P=1 TO LEN(DIDA$) 

2640 CALL HCHAR(FI,CO+P-1,ASC(SE 
G$(DIDA$,P,1))) 

2650 NEXT P 
2660 RETURN 


2670 REM *-SUBROUTI NE PER 

TRONCO-BARRE-* 

2680 CALL VCHAR(22-YY, CO-1,104+B 
AR* 8 f YY- 1) 

2690 CALL VCHAR(22-YY,CO,105+BAR 
*8,YY-1) 

2700 CALL VCHAR(22-YY,CO + 1 ,106 + B 
AR * 8,YY-1 ) 

2710 RETURN 

2720 REM *- 

_ * 

2730 REM *-- STAMPA 
SCHERMO 

2740 OPEN #1:OUTDISPOSITIVO$,OUT 
PUT 

2750 FOR Zi=1 TO 24 
2760 Zl$="" 

2770 FOR Z2=1 TO 32 
2780 CALL GCHAR(Zi , Z 2 , Z 3 ) 

2790 Zi$ = Z 1$ & CHR$(Z 3) 

2800 NEXT Z2 
2810 PRINT #1 :Zl$ 

2820 NEXT Zi 
2830 CLOSE #1 
2840 RETURN 



editor/file-player 


Dedicato a lutti i letton che noi possiedono 
un modulo MUSIC MAKER per il proprio TI e 
desiderano comunque utilizzare il computer per 
trascrivere o creare composizioni musicali. 
Infatui questi due semplici listati in TI-BASIC 
vi daranno modo di trascrivere uno spartito , 
ed eseguirlo (o meglio farlo eseguire) utilizzan¬ 
do 2 delle 3 voci che il TI vi mette a disposizio¬ 
ne. 

Il programma vero e proprio è il TEXT-EDITOR; 
inizialmente vi chiederà titolo ed autore del bra¬ 
no quindi il tempo da utilizzare nell'esecuzio¬ 
ne, dopodiché dovrete inserire battuta per bat¬ 
tuta i dati per le 2 voci: 

durata della nota (1 = intero. Q = quarto. 
S = sedicesimo. M-meta. 0 = ottava) 

N.B. Per note "puntate" inserire un punto do¬ 
po la durata: ex. S.. Q. r ecc. 

- nota (DO. DO diesis. RE. RE diesis. MI, EA. 
FAdiesis . SOL. SOLdiesis, LA, LAdiesis, SI. R 


(per toni con valore -zero-)). 

- ottava (tra I e 4) 

nota seconda voce con relativa ottava. 

In qualsiasi /stante disporrete anche dei seguen¬ 
ti comandi: 

CAMBIO (per effettuare cambiamenti nelle 
battute) 

- REDO (per ricominciare) 

- LIST (per listare qualsiasi sene di battute già 
introdotte) 

SAVE (per registrare i dati della composizio¬ 
ne. Registrate periodicamente i vostri dati: un 
INPUF di una nota -e accidente senza indica¬ 
zioni di ottava può causare un CRASH). 

ESECUZIONE (pei ascoltare quanto finora 
composto). 

Utilizzando il comando SAVE. i dati verranno 
registrati con una funzione di MERGE volta per 
volta, finché non darete il segnale di termine 
comiposiztone. I dati cosi ottenuti dovranno es- 
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sere caricati come spiegato dal programma 
FILE-PLAYER che provvedere all'esecuzione ve¬ 
ra e propria con tanto di intestazione. Per far¬ 
vi un esempio di scritturo ecco le prime 5 bat¬ 
tute della fuga in SOL minore di BACH (Tempo- 

Music text-edritor 

100 REM ***************** 

110 REM ** MUSIC ** 

120 REM ** TEXT-EDITOR ** 

130 REM ***************** 

140 REM TI-99/4A BASIC 
160 REM 
170 REM 

180 CALL CLEAR 

190 DIM N$(11 ,4) ,V$(8,1 ) ,P(349,2 

) 

200 INPUT "TITOLO - ":T$ 

210 INPUT "COMPOSITORE- ":C$ 

220 FOR 1=0 TO 11 
230 READ N$ ( I , 0) 

240 NEXT I 

250 DATA LA,LA# , S I ,DO,DO#,RE,RE# 
/MI,FA,FA#,SOL,SOL* 

260 FOR 1=1 TO 4 
270 FOR J=0 TO 11 
280 X = 1 1 0 * 2 ~ (S/12) 

290 GOSUB 1420 
300 N$(J,I)=STR$(X) 

310 S=S+1 
320 NEXT J 
330 NEXT I 
340 CALL CLEAR 

350 PRINT "INSERIRE IL TEMPO (M. 

M•)”2" (CFR.METRONOMO)"2 : 

360 INPUT "M.M (56-1 26/M IN)= ":T 

370 IF T<127 THEN 410 

380 PRINT :"126 E'IL MAX.":: 

390 CALL SOUND(150,220,1) 

400 GOTO 360 
410 CALL CLEAR 
420 T= 6E+ 4/T 
430 FOR 1=0 TO 8 
440 FOR J=0 TO 1 
450 READ V$(I,J) 

460 NEXT J 
470 NEXT I 

480 DATA I,4,M,2,M.,3,Q,1.1,0.,1 
.5,0,.5,0.,.7 5,S,•2 5,S•,.375 
490 FOR 1=0 TO 8 
500 X-VAL(V$(1,1)) 

510 X=T*X 

520 GOSUB 1420 

530 V$(I,1)=STR$(X) 

540 NEXT I 
550 CALL CLEAR 
560 KP= 0 
570 GOSUB 1330 


M.M. = 100): 

I = Q/SOL2/R/ ; 2 = Q/RE3/R/ ; 3 = Q/LA # 3IRI 
. 4 = 0/LA3/R/ : 5 = 0/SOL2/RJ : 6 = 0/LA # SIRI 
7 = 0/LA3/R/ ; 8 = 0/SOL2/R/; 9=0IFA#2IR/I 
I0=0/LA3IRJ... 

580 PO=l 
590 X$ = "" 

bOO FOR N = l TO 4-LEN (STRS (K+KP+1 

) ) 

610 X$ = X$É." " 

620 NEXT N 

630 INPUT STR$(K+KP+1)&X$&" = 

X$ 

640 IF K=350 THEN 670 
650 P(K,1 )= 1 1 1 
660 P(K,2)=111 

670 IF X$< >"CAMBIO" THEN 700 
680 GOSUB 1570 
690 GOTO 580 

700 IF X$< >"ESECUZIONE" THEN 730 
710 GOSUB 1200 
720 GOTO 580 

730 IF X$< >"REDO" THEN 760 
740 GOSUB 1470 
750 GOTO 580 

760 IF X$< >"LIST" THEN 790 
770 GOSUB 1710 
780 GOTO 580 

790 IF X$< >"SAVE" THEN 810 

800 GOSUB 2160 

810 IF K< >350 THEN 840 

820 PRINT "REGISTRA I FILES PRIM 

A DI":"CONTINUARE.: 

830 GOTO 580 

840 GOSUB 1370 

850 IF S$="" THEN 870 

860 IF PNOO THEN 890 

870 CALL SOUND(l 50,220,1 ) 

880 GOTO 580 

890 FOR 1=0 TO 8 

900 IF S$=V$(1,0)THEN 950 

910 NEXT I 

920 PRINT "VALORE ERRATO" 

930 CALL SOUND(1 50,220,1) 

940 GOTO 580 

950 P(K,0)=VAL(V$(1,1)) 

960 FOR 1=1 TO 2 

970 GOSUB 1370 

980 IF SS="" THEN 1000 

990 IF PNOO THEN 1020 

1000 CALL SOUND(150,220,1) 

1010 GOTO 580 
1 020 IF S$ = "R" THEN 1150 
1 030 IF SEG$(S$,LEN(S$) ,1)<"5" T 
HEN 1060 

1040 CALL SOUND(l50,220,1) 

1050 GOTO 580 

1 060 OC=VAL(SEG$(SS,LEN (S$) ,1)) 

1 070 S$=SEG$ (S$,1 ,LEN(SS)-1) 

1080 FOR J = 0 TO 11 
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1090 1F S$ = N$(J,0)THEN 1140 
1100 NEXT J 

1110 PHINT "VOCE ERRATA”;I 
1120 CALE SOUND(150,220,1) 

1130 GOTO 580 

1140 P( K,I)=VAL(N$(J/OC)) 

1150 NEXT I 

1160 IF SR = 0 THEN 1180 

1170 RETURN 

1180 K=K+1 

1190 GOTO 580 

1200 FOR L=0 TO K-l 

1210 IF P(L, 1)0111 THEN 1270 

1 220 IF P(L,2)0111 THEN 1250 

1 230 CALL SOUND( P ( L, 0 ) ,110/30,11 

0,30) 

1240 GOTO 1310 

1 250 CALL SOUND( P ( L, 0 ) ,110,30,P( 
L,2) ,1) 

1 260 GOTO 1310 

1 270 IF P(L,2)0111 THEN 1300 
1 280 CALL SOUND( P ( L, 0 ) , P ( L, 1 ) ,1 , 
110,30) 

1 290 GOTO 1310 

1 300 CALL SOUND(P (L,0) ,P(L,1), 1 , 
P(L,2),1) 

1310 NEXT L 

1320 RETURN 

1330 FOR 1=0 TO 349 

1340 P(I,0)=0 

1350 NEXT 1 

1360 RETURN 

1370 PN=POS(X$,"/" t PO) 

1 380 IF PN = 0 THEN 1410 

1 390 S$ = SEG$ (X$,PO,PN-PO) 

1400 PO=PN+1 
1410 RETURN 
1420 Y=X-INT(X) 

1 430 IF Y< 5 THEN 1450 
1 440 X = X+ 1 
1450 X=INT(X) 

1460 RETURN 
1470 M = K 

1480 INPUT "PARTENZA DA LINEA - 
” : K 

1 490 IF K>KP THEN 1 520 
1500 CALL SOUND(l50,220,1) 

1 510 GOTO 14 80 

1 520 K = K-KP-1 

1530 IF K<M+1 THEN 1560 

1540 CALL SOUND(l50,220,1) 

1 550 GOTO 14 ò 0 
1560 RETURN 
1570 SR=1 
1 580 M = K 

1 590 INPUT "CAMBIO LINEA - " : K 
1 600 IF K>KP THEN 1 630 
1610 CALL SOUND( 1 50,220,1 ) 

1620 GOTO 1590 

1 630 K = K-KP-1 

1640 IF K<M THEN 1670 

1 650 CALL SOUND(1 50,220,1 ) 


1 660 GOTO 1590 
1670 GOSUB 580 
1680 K=M 
1 690 SR= 0 
1700 RETURN 

1710 INPUT "LINEA INIZIALE - n :0 

1 720 IF O>KP THEN 1750 
1730 CALL SOUND(150,220,1) 

1740 GOTO 1710 

1750 INPUT "ULTIMA LINEA -”:Q 
1 760 IF Q >KP THEN 1790 
1770 CALL SOUND(150,220,1) 

1780 GOTO 1750 
1 790 IF 0< =Q THEN 1820 
1 800 CALL SOUNDd 50,220,1 ) 

1810 GOTO 1710 

1820 IF 0-KP<K+l THEN 1840 

1830 Q = K + KP 

1 840 PRINT : : 

1850 0=0-KP-1 
1860 Q=Q-KP-1 
1870 FOR R=0 TO Q 
1880 X$ = "" 

1890 FOR 1=1 TO 4-LEN(STR$(R+l ) ) 

1900 X$=X$&" " 

1910 NEXT I 

1 920 PRINT STR$ (R+l ) 4,X$4i M - "; 

1930 FOR S=0 TO 8 

1940 IF P(R,0)=VAL(V$(S , 1))THEN 

1 960 

1950 NEXT S 

1 960 PRINT V$(S,0)&"/"; 

1970 FOR 1=1 TO 2 
1 980 IF P(R,1)0111 THEN 2040 

1 990 IF 102 THEN 2020 
2000 PRINT "R/" 

2010 GOTO 2140 
2020 PRINT "R/"; 

2030 GOTO 2120 

2040 FOR 11=0 TO 11 

2050 FOR 12=1 TO 4 

2060 IF P(R,I)<VAL(N$(I1,12))THE 

N 2090 

2070 IF P(R,I)=VAL(N$(Il,12))THE 
N 2100 

2080 NEXT 12 

2090 NEXT II 

2100 IF 1=2 THEN 2130 

2110 PRINT N$ (Il ,0)fcSTR$(I2)&"/” 

• 

i 

2120 NEXT I 

2130 PR^NT N$ ( I1 ,0)&STR$(I2)&"/" 

2140 NEXT R 
2150 RETURN 

2160 TF F$ = "1" THEN 2200 
2170 F$ = " 1 " 

2180 OPEN #1 :"CSI",SEQUENTIAL,IN 
TERNAL,OUTPUT,FIXED 192 



21 90 PRINT Iti :T$;C$ 

2200 11=0 

2210 K=K-1 

2220 POR 1=1 TO 12 

2230 FOR J=0 TO 2 

2240 PRINT #1:STR$(P(Il,J))> 

2250 NEXT J 

2260 11=11+1 

2270 IF 11>K THEN 2330 

2280 NEXT I 

2290 PRINT #1:STR$(P(Il,0)),STR§ 
(P(11 ,1) ) f STR$ t P(I1,2)) 

2300 11=11+1 

2310 IF T1>K THEN 2340 

2320 GOTO 2220 

2330 PRINT 11:"" 

2340 PRINT "FINITO ? (S/N)" 

2350 CALL KEY(0,KEY,STATUS) 

2360 IF KEY=83 THEN 2410 

2370 IF KEY078 THEN 2350 

2380 KP= K P+K +1 

2390 K=0 

2400 GOTO 570 

2410 PRINT #1:"@@@@@" 

2420 CLOSE il 

2430 PRINT T$&" REGISTRATO" 

2440 END 


Music file player 


100 
1 1 0 
1 20 
1 30 
1 60 
1 70 
1 80 
1 90 
UE 


***************** 

** MUSIC ** 
FILE PLAYER 


* * 


* * 


REM 
REM 
REM 
REM 
REM 
REM 

CALL CLEAR 

PRINT "QUESTO PROGRAMMA ESEG 
UNA COMPOSIZIONE A DUE VOCI 


***************** 

TI- 99/4A BASIC 


CREATA CON *TEXT-EDITOR’" 
200 PRINT INSERISCI I DATI 

N -CSI -":"QUINDI PREMI ENTER" 
210 CALL SOUND(150,1400,1) 

220 CALL KEY( 0 ,KEY,STATUS) 

230 IF KEY<>13 THEN 220 
240 DIM P(530,2) 


250 OPEN fr 1 : "CSI , SEQUENTIAL, INT 
ERNAL,INPUT ,FIXED 192 
260 PRINT LETTURA" 

270 CALL SOUND(150,1400,1) 

280 INPUT #1:N$,C$ 

290 FOR 1=0 TO 530 
300 FOR J = 0 TO 2 
310 INPUT fr1:X$, 

320 IF X$="" THEN 310 
330 IF X$="@@@@@" THEN 370 
340 P (I,J)=VAL(X$) 

350 NEXT J 

360 NEXT I 

370 CALL CLEAR 

375 CALL SCREEN(12) 

380 PRINT TAB((28-LEN(N$))/2);N$ 

: :TAB(13) ;"BY": :TAtì((28-LEN(C$)) 
/ 2);C$: :::::::: 

390 FOR K=0 TO 1-1 

400 IF P(K, 1)0111 THEN 440 

410 IF P(K, 2)0111 THEN 470 

420 CALL SOUND(P(K,0) ,1 10 f 30,110 

,30) 

430 GOTO 500 

440 IF P(K, 2)0111 THEN 490 

450 CALL SOUND(P(K,0) ,P(K,1) ,1 ,1 

10,30) 

460 GOTO 500 

470 CALL SOUND(P(K,0),110,30,P(K 

, 2 ) ,1 ) 

480 GOTO 500 

490 CALL SOUND(P(K,0) ,P(K,1) ,1 ,P 

( K, 2 ) , 1 ) 

500 NEXT K 
510 CALL CLEAR 

520 PRINT "SCEGLI TRA 1 ) 

NUOVA ESECUZIONE": :" (2) ALTRO B 
RANO": :"(3) STOP" 

530 CALL KEY(0,KEY,STATUS) 

540 IF KEY< 49 THEN 530 " 

550 IF KEY>51 THEN 530 

560 KEY = KEY- 48 

570 ON KEY GOTO 370,280,580 

580 CLOSE fri 

59U STOP 


Tartarughe 


iinclaiiv' 

Spect rupf 


hK 4HK 


Un simpatico orn/no col cappello ha un grosso 
problema: abita in campagna, mentre il suo 
ufficio è in aita, e per raggiungere il posto di 


divoro e costretto ad attraversare più volte al 
giorno un piccolo fiumiciattolo. Il problema è 
costituito dal fatto che sul fiume non esistono 
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ponti di alcun genere, e li poveretto deve tutti 
giorni sfidare la sorte saltando sulla groppa di 
numerose tartarughe che vivono nel corso d'ac¬ 
qua. Se siete in cerca della buona azione quo¬ 
tidiana per mettere a posto la vostra coscien¬ 
za. questo è il gioco che fa per voi. 
'Tartarughe' è caratterizzato da una grafica 
simpatica ed estesa (tutti i 21 caratteri grafici 
previsti) e consente al giocatore di scegliere i 
tasti per il movimento sinistra-destra (di default 
I & 0): è sufficiente premere il tosto ’D' pri¬ 


Tartarughe: listato I 


1 

REM *** TARTARUGHE *** 

2 

REM **** LISTATO 

1 * * * * 

3 

LOAD "udg"CODE 


5 

LET ni*0 



9 

LET 6C*0: LET sti¬ 
ri 

1 : LET li* 

10 

LET 1$ = "1" : 

LET r $ ■ "0" 

1 1 

LET x= 8 : LET 

*< 

H 

O 


40 

LET start = 0 



50 

LET move=0 



1 00 

GO SUB 9900: 

REM 

in t r od u z . 

no 

GO SUB 9800: 

REM 

istruzioni 

1 20 

GO SUB 9000: 

REM 

display 

1 30 

GO SUB 5000: 

REM 

movimento 


tartaruga 

150 GO SUB 6000: REM movimento 


uomo 

160 GO SUB 3000: REM rimpiazza 
tartaruga 
170 GO TO 130 

2999 REM rimpiazza tartaruga 

3000 IF moveOl THEN RETURN . 
3010 LET move-0 

3020 PRINT AT 11,(v* 7)- 5 ; 

PAPER 5; INK 3;" FGHIJ " 
3030 PRINT AT 12,(v*7)-5; 

PAPER 1; INK 4 ; 11 KL { 3SG8 }MB 

11 

3040 PRINT AT 13,(v*7)-5; 

PAPER 1; INK 4 ; " ABCD E " 
3050 RETURN 

3399 REM perse tutte le vite 

3400 PRINT AT 1,19; PAPER 7; 

INK 1 ;"0";AT 8,0; INK 0; 
PAPER 5;" LA PARTITA 

E' FINITA " 

3410 RESTORE 9986: FOR g=l TO 11 
: READ a,b: BEEP a/2,b: 

NEXT g 

3420 IF se>hi THEN LET hi=sc 


ma di iniziare u gioco per definire t nuovi tasti 
personalizzati. 

Il programma è costituito do due listati, per 
consetire di giocare anche a chi possiede il I óK. 
Salvate il programma principale (listato I ) con 
SAVE “ TARTARUGHE ” LINE I. 

Quindi date NEW e battete il secondo listato. 
Date RUN. quindi salvate i caratteri grafici cosi 
caricati con 

SAVE ' udg CODE USR'a". 168 
di seguito al programma principale. 


3430 LET sc=0: LET sh=l: LET li= 
3 

3435 LET x=8: LET y=0 

3436 LET start=0 
3440 GO TO 110 

3999 REM una vita in meno 

4000 PRINT AT 8,7; FLASH 1; 

INK 0; PAPER 7;"UNA VITA I 
N MENO.." 

4020 RESTORE 9986: FOR g=l TO 11 
: READ a , b: BEEP a/2,b: 

NEXT g 

4030 LET 1i=1i-1 

4032 IF li=0 THEN GO TO 3400 

4035 LET x= 8: LET y-0 

4036 LET start«0 
4040 GO TO 120 

4999 REM movimento tartaruga 

5000 LET a»1 -(sh/10) 

5010 LET v-INT (RND*4)+1 

5020 IF RND>a THEN GO TO 5040 
5030 RETURN 

5040 PRINT AT ll,(v*7)-5; 

PAPER 5; INK 0;" t " 

5041 LET move»! 

5045 FOR f = 12 TO 13 

5050 PRINT AT f,(v*7)-5; PAPER 1 

• Il II 

5060 NEXT f 
5065 BEEP .1,0 
5070 RETURN 

5499 REM L'altra sponda 

5500 IF y=30 AND start-0 THEN 

GO TO 5600 

5510 IF y=0 AND start-30 THEN 
GO TO 5700 
5520 GO TO 130 
5600 LET start=30 
5610 LET sc=sc+l00 
5620 BEEP 1,40 
5625 LET sh=sh+l 
5630 GO TO 120 
5700 LET start = 0 
5710 LET sc=sc+100 
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5720 BEEP 1,40 
5725 LET sh=sh+l 
5730 GO TO 120 

5999 REM movimento uomo 

6000 IF INKEY$=r$ THEN GO TO 61 
00 

6010 IF INKEY$ = 1$ THEN GO TO 66 
00 

6015 IF ATTR (x+3,y)<>43 AND y 
030 AND y<>0 THEN 
GO TO 6160 
6020 RETUPN 

6100 IF y= 30 THEN RETURN 
6105 PRINT PAPER 8 ;AT x,y;" "; 

AT x+1, y ; " ";AT x+2,y;" " 

è 

6110 IF y= 0 THEN LET y=y+5: 

GO TO 6130 

6120 IF y= 26 THEN LET y=y+4: 

GO TO 61 30 
6125 LET y-y+7 
6127 BEEP .5,12 

6130 PRINT INK 2; PAPER 5;AT x, 
y;"RS";AT x+l,y; INK 7;"NO" 
;AT x+2,y; INK 2;"PQ" 

6140 IF ATTR (x+3,y)<>43 
THEN GO TO 6155 

6145 LET sc=sc+10 

6146 PRINT AT 1,0; PAPER 7; 

INK 1 ; se 
6150 RETURN 

6155 IF y» 30 OR y-0 THEN 
GO TO 5500 
6160 FOR x-B TO 16 
6170 PRINT INK 2; PAPER 8;AT X- 
1,y;" ";AT x,y;"RS";AT x+1 

,y; INK 7;"NO";AT x+2,y; 

INK 2;"PQ" 

6180 BEEP .1,-x-20 
6190 NEXT x 
6200 GO SUB 4000 
6600 IF y-0 THEN RETURN 
6610 PRINT PAPER 8 ;AT x,y;" " ; 

AT x+1 ,y;" ";AT x+2,y;" " 

6620 IF y-5 THEN LET y-y-5: 

GO TO 6650 

6630 IF y-30 THEN LET y»y-4i 
GO TO 6650 
6640 LET y=y-7 
6650 GO TO 6127 

8998 STOP 

8999 REM display 

9000 BORDER 5: CLS 

9010 PRINT INK 2; PAPER 7 ;AT 0, 
0;"PUNTI PROVA VITE 
MAX " 

9015 PRINT PAPER 7 ;AT 1,0,, 

9020 PRINT INK 1; PAPER 7 ;AT 1, 
0;sc;AT l,11;sh;AT 1,19;li; 
AT 1,27 ; hi 


9030 FOR g=2 TO 10 

9035 PRINT AT g,0; PAPER 5;,, 

9040 NEXT g 

9042 PRINT AT 3,11; INK 0; 

PAPER 5;"TARTARUGHE" 

9045 FOR g=11 TO 19 

9050 PRINT AT g,0; PAPER 1;,, 

9052 PRINT INK 2 ;AT g,0;" 

{2SG8}";AT g,30 ;"{2SG8}" 
9055 NEXT g 
9071 INK 2: PAPER 1 

9075 PRINT AT 14,2 ;"U";AT 14,29; 

Il rpll 

9076 PRINT AT .1 5,2 ; " {SG8 }U" ; AT 1 
5,28;"T{SG8}" 

9077 PRINT AT 16,2 ;" {2SG8}U"; 

AT 16,27;"T{2SG8}" 

9078 PRINT AT 17,2 ;" {3SG8 }U" ; 

AT 17,26;"T{3SG8}" 

9079 PRINT AT 18,2 ;"{4SG8}U"; 

AT 18,25;"T{4SG8}" 

9080 PRINT AT 19,2 ;"{29SG8}" 

9090 PRINT INK 2; PAPER 5;AT x, 

y; INK 2;"RS";AT x+1,y; 

INK 7; "NoTAT x+2 , y > INK 2 
; " PQ" 

9100 FOR g-2 TO 23 STEP 7 
9110 PRINT AT 11,g; INK 3> 

PAPER 5;" FGHIJ ";AT 12,g; 
PAPER 1; INK 4 ;"KL { 3SG8)MB 
"; INK 4 ; AT 13,g; Tr ABCD E lr * 

9120 NEXT g 
9130 RETURN 

9698 STOP 

9699 REM scelta tasti 

9700 POKE 23658,8 

9701 FOR w-1 TO 90: NEXT w 
9705 BORDER 1: PAPER 1: INK 7: 

CLS 

9710 PRINT AT 3,0;"Premi il tast 
o per muoverti a:" 

9720 PRINT AT 7,5 ;"SIN1STRA" 

9725 LET 1$=INKEY$: IF 1$-"" 

THEN GO TO 9725 

9730 PRINT AT 7,14;"-> ";1$ 

9740 PRINT AT 11,5;"DESTRA" 

9745 LET r$=INKEY$: IF r$-"" 

OR r$=1$ THEN GO TO 9745 
9750 PRINT AT 11,12;"-> "?r$ 

9760 PRINT FLASH 1 ;AT 18,2 ;"PRE 
MI UN TASTO PER CONTINUARE" 

9770 PAUSE 10: PAUSE 10: PAUSE 0 

9799 REM istruzioni 

9800 BORDER 5: PAPER 5: INK 0: 

CLS 

9810 PRINT AT 0,1 1 ;"TARTARUGHE" 
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9820 


9830 


9840 


9850 


9860 


9870 

9880 

9885 

9890 

9899 


9900 

9905 

9908 

9910 

9920 

9930 


9940 

9945 

9950 

9952 

9955 

9960 

9970 

9975 

9976 

9977 
9980 


9985 


PRINT AT 2,0;"Guidate l'omi 
no col cappello dall'alt 
ra pajrte del fiume, sai 

tando sui gusci delle grand 
i tartarughe quando sono al 
la superficie." 

PRINT "Se l'omino si trova 
sopra una tartaruga quan 
do questa si immerge, c 
adra ' nelle gelide acque 
e perderà' la vita" 

PRINT '"10 punti...sa Ito s 
u tartaruga 100 punti...al 
tra sponda" 

PRINT "'Puoi scegliere i ta 
sti per muoverti a des 

tra e sinistra premendo 
~D 

PRINT "Altrimenti usa ~";1$ 
per muovere- a sinistra 
, e ~";r$;"~ per la destra" 

PRINT '"Premi “D~ o ~S~ per 
iniziare" 

IF INKEY$ &u s" OR INKEY$-"S" 
THEN RETURN 

IF INKEY$-"d" OR INKEY$«"D" 
THEN GO TO 9700 
GO TO 9880 
REM introduzione 


BORDER 6; PAPER 6: CLS 
PRINT 

FOR g-1 TO 5 

PRINT AT 0,11; INK 0 ;"TARTA 
RUGHE" 

NEXT g 

PAPER 7: PRINT AT 17,1; 

INK 1 ;"RS";AT 18,1; INK 2; 
"NO";AT T5,1 ; INK 4;"PQ" 

FOR g«24 TO 3 STEP -1 

PAPER 7: INK 3 

PRINT AT 17,g;" FGHIJ " 

PRINT AT 18,g; "Kb (3SG8)MB " 

PRINT AT 19,g;" ABCD E " 

BEEP . 1 ,g 
NEXT g 

PRINT AT 17,3;" " 

PRINT AT 18,3;" " 

PRINT AT 19,3;" " 

PRINT AT 17,1;"{SG2){SGl}"; 

AT 18,1;"{G7]{SG4}";AT 19,1 
;"{G5}{SG5}" 

RESTORE 9986: FOR g=l TO 11 
: READ a,b: BEEP a/2,b: 

NEXT g 

15 


9986 

DATA 1 ,7 , .66,7, 

.33,7,1 ,7, .6 


6.10.. 33.9.. 66, 

7.. 33.6.2.7 

9,.33,7,.66, 

9990 

PRINT AT 21,3; 

INVERSE 1 ;"P 


REMI UN TASTO PER INIZIARE" 

9991 

FOR g=1 TO 100: 

BEEP .01,g/ 


2: IF INKEY$<>" 
RETURN 

" THEN 

9995 

NEXT g 


9996 

PRINT AT 21,0; 
BRIGHT 0;,, 

PAPER 6; 

9997 

GO TO 9930 



Tartarughe: listato 1 


1 REM *** TARTARUGHE *** 

2 REM **** RISTATO 2 *»»* 

10 FOR x-USR "a" TO USR "u"+7 
20 READ y 
30 POKE x,y 
40 NEXT x 


100 DATA 63,31,1,1,7,0,0,0,24B, 
240,224,192,128,0,0,0 
110 DATA 15,15,15,31,63,127,0,0 
,224,224,192,128,0,0,0,0 
120 DATA 240,248,252,252,126,62 
,6,0,0,0,0,0,1,7,31,127 

130 DATA 0,1,31,127,255,255,255 
,255,0,252,255,255,255,255, 
255,255 

140 DATA 0,0,192,240,252,255,25 
5,255,0,0,0,0,0,0,192,240 
150 DATA 0,0,0,0,3,15,29,61,131 
,127,63,63,255,255,255,255 
160 DATA 255,255,255,255,255,25 

2.240.240.15.15.9.9.31.60.1 

27.1 5 

170 DATA 240,240,144,144,248,60 
,254,240,30,30,30,30,126,12 
6,126,0 


180 DATA 120,120,120,120,126,12 
6,126,0,0,15,15,15,63,63,63 
,0 

190 DATA 0,240,240,240,252,252, 
252,0,1 ,3,7,15,31 ,63,127,25 
5 

200 DATA 128,192,224,240,248,25 
2,254,255 




48K 


Amplichar 


Questo programmo vi consentirà di creare ra¬ 
pidamente sul video scritte di grandi dimensioni, 
posizionate dove meglio credete, allungate o 
schiacciate, colorate, inclinate ecc., risparmian¬ 
dovi la fatica di doverle comporre carattere per 
carattere con noiose sequenze di PRINT o 
PLOJ. Una volta lanciato il programma, ap¬ 
pare subito il menu principale con 6 opzioni. 
Vediamole secondo ordine logico e non secon 
do l'ordine con cui appaiono sul video. 

L'opzione 4 permette di stampare scritte sullo 
scnermo secondo le specifiche richieste dall'u¬ 
tente. Supponiamo di voler stampare in gran¬ 
de ‘FERMA IL NASTRO': si inserisce dapprima 
la parola ‘FERMA': quindi si stabilisce Fingran 
dimento (ad esempio 5 in ascissa e 5 in ordi¬ 
nata), il colore, la posizione di partenza sullo 
schermo (attenzione, il carattere 0,0 è nell'an 
golo in basso a sinistra: nel nostro esempio sce¬ 
gliamo il punto 4,15) e l'inclinazione (sinistra, 
normale, destra). A questo punto il program¬ 
ma traccia la scritta secondo quanto richiesto: 
terminata questo fase premiamo un tasto e... 
vediamo sparire il nostro lavoro! Niente pau 
ra, lo Spectrum ha memorizzato tutto e ve lo 
dimostrerà fra breve. Ora scegliamo nuova¬ 
mente l’opzione 4 e inseriamo il resto della fra 
se. magari in minuscolo. Impostiamo anche in 
questo caso i parametri di ingrandimento 
(X = 3: Y=3). il colore, la posizione (3.10) e 


1 REM *** AMPLIFICATORE *** 

2 REM *** DI *** 

3 REM *** CARATTERI *** 

10 FLASH U: OVER 0: BRIGHT 0: 

INVERSE 0: CLS 
20 DIM a$ ( 100,32) 

30 DIM x(100): DIM y(100) 

40 DIM w(100) J DIM V ( 100 ) 

50 DIM d$ (100) : DIM i (100) 

60 LET co-0 


l'inclinazione (a destra, questa volta). Vedre¬ 
mo a questo punto apparire sullo schermo dap 
prima la parola 'FERMA', quindi 'il nastro', an 
eh'essa ingrandita e inclinata come noi abbia¬ 
mo stabilito. Anche in questo caso, premendo 
un tasto, l'immagine svanisce e si ritorna al me¬ 
nù. Se ora scegliamo l'opzione I (salva su na 
stro) o 2 (stampa su carta) vedremo riappari¬ 
re le scritte: il programma eseguirà successi¬ 
vamente averlo battuto; a scanso di meonve 
menti vi consigliamo tuttavia di dare un GO¬ 
TO // compito selezionato (naturalmente se ave¬ 
te le periferiche collegate!). L'opzione 3 puh 
sce lo schermo, ma soprattutto pulisce matrici 
e vettori che conservano la vecchia immagine, 
consentendovi di comporre nuove scritte o me s- 
saggi. Infine l'opzione 6 permette di salvare l’in¬ 
tero programma. Potete dunque usare questa 
opzione per salvare il programma dopo 9900: 
il risultato sarà lo stesso (il programma si auto- 
salverà ed auto verificherà) e non avrete l'in¬ 
conveniente di salvare con esso anche talune 
variabili, come invece accade dopo il RUN. 
Ultimissima cosa, un piccolo quiz alla portata 
di quasi tutti: provate a far girare il program¬ 
ma inserendo come testo un token di quelli pre¬ 
senti sulla tastiera (come INVERSE, S CREENi, 
RFSTORE. OUI...): cercate poi di capire cosa 
è successo e come si può ovviare a un certo 
problema. Coraggio: non e affatto difficile! 


70 PRINT INVERSE 1 ;AT 0,0; M 
AMPLIFICATORE DI CARATTERI 

H 

80 PRINT AT 5,0 ; " 1/Per salvare 
immagini su nastro"' 1 2 3 "2/Pe 
r stampare immagini su cart 
a " 

90 PRINT AT 1Q,0;"3/Per pulire 
lo schermo"4/Per stampa 
re sullo schermo" 

100 PRINT AT 15,0;"5/Per vedere 
le istruzioni" 1 6/Per sai 
vare l'intero programma" 
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110 LET Ì$-INKEY$ 

120 IF CODE i$< 4 9 OR CODE i$'>54 
THEN GO TO 110 

130 IF i$-"6" THEN GO TO 9000 
140 GO SUB 1 000*VAL i$ 

150 GO TO 65 

1000 REM * Salva au nastro * 

1010 CLS 

1020 PRINT "Inserisci il nome de 
11 *immagine,quindi premi <E 
NTER>" 

1040 INPUT n$ 

1 050 IF n$ = "" OR LEN n$>10 

THEN PRINT "Nome non acce 
ttabile": GO TO 1040 
1060 GO SUB 6000 
1065 PRINT AT 21,0;" 

ii 

1070 SAVE n$SCREEN$ 

1080 PRINT #l;n$;" salvato. Prem 
i un tasto.": PAUSE 0: 

. CLS : RETURN 
2000 REM * Stampa su carta * 

2010 CLS : GO SUB 6000 
2020 COPY : CLS : RETURN 
3000 REM * Pulizia schermo * 

301 0 CLS 

3020 INPUT "Pulisci lo schermo [ 
s/n]?" ;z$ 

3030 IF z$="S" OR z$ — "S" THEN 
GO TO 3100 

3040 IF z$ = "N" OR z$«"n" THEN 
RETURN 

3050 GO TO 3020 

3100 INPUT "PAPER (0-7): ";pap 
3110 IF pap<U OR pap>7 THEN 
GO TO 3100 

3120 INPUT "INK (0-7): ";ink 
3130 IF ink<0 OR tnk>7 THEN 
GO TO 3120 

3140 INPUT "BOEDER (0-7): "Jbod 
3150 IF bod<0 OR bod>7 THEN 
GO TO 3140 

3160 INK ink: PAPER pap: 

BORDER bod: CLS : RUN 
4000 REM * Stampa su schermo * 
4010 CLS 

4020 INPUT "Testo: ";w$ 

4030 IF LEN w$>32 OR w$«"" 

THEN GO TO 4020 
4040 PRINT w$ 

4050 INPUT "Allargamento ascissa 
? " ; xl 

4060 IF xl <0 OR xl > 31 OR x1<> 

INT xl THEN GO TO 4050 
4065 IF xl*LEN w$>31 THEN 
GO TO 7000 

4070 PRINT "Allargamento ascissa 
: " ; x 1 


4080 INPUT "Allargamento ordinat 
a? " ;y 1 

4090 IF y1<0 OR y1>21 OR yl<> 

INT y1 THEN GO TO 4080 

4091 INPUT "INK: ";in: IF in<0 

OR in>7 THEN GO TO 4091 
4095 PRINT "Allargamento ordinat 
a : " ; y 1 

4110 INPUT "Coordinata X (0-31)? 
" ; wx 

4120 IF wx<0 OR wx> 31 OR wx<> 

INT wx THEN GO TO 4110 
4125 IF xl*LEN w$+wx>31 THEN 
GO TO 7000 

4130 INPUT "Coordinata Y (0-21)? 
" ; wy 

4140 IF wy<0 OR wy>21-OR wy<> 

INT wy THEN GO TO 4130 
4145 IF y1+wy>21 THEN GO TO 700 
0 

4150 PRINT "AT ";wx;" , ";wy 
4155 LET wy=wy* 8 : LET wx=wx*B 
4160 LET co a co+l 

4170 LET a$(co)=w$: LET x(co)=xl 
: LET y (co) *=y 1 

4175 LET i(co)-in 

4180 LET w(co)-wx: LET v(co)=wy 

4181 INPUT "Inclinazione Sinistr 
a, Normale o Destra (s,n, 
d) ? ";e$ 

4182 IF e $ = "S" OR e$«"s" THEN 

LET d$ (co)s": GO TO 4190 

4183 IF e$-"D" OR e$-"d" THEN 

LET d$ (co)*"d": GO TO 4190 

4184 IF e$ *"N" OR o$-"n" THEN 

LET d$ (co)-"n": GO TO 4190 

4185 LET e$«"n" 

4190 GO SUB 6000 

4195 POKE 23659,1: PRINT AT 22,0 
;"Premi un tasto..": POKE 2 
3659,2 

4196 PAUSE 0: CLS : RETURN 
5000 REM * Istruzioni * 

5005 CLS 

5010 LET z$«" MENU' DEI 

COMANDI " 

« 

5020 PRINT AT 0,0;z$; INK 9; 

BRIGHT 1 ,,,,M 1 SALVA IMM 
AGINE" 

5030 PRINT '"Questa opzione dise 
gnera' sullo schermo le scr 
itte che avrete creato co 
n l'opzione 3 ( vedi piu' 
oltre) e poi memorizzerà' 
su nastro l'immagine reali 
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SALVA IL 


zzata su video. Inserisci 
il nome dell'immagine da 
salvare (meno di 10 carat 
teri). L'immagine salvat 
a potrà' essere richiamatac 
on BRIGHT l;"LOAD """"SC 
REEN$" 

5040 PAUSE 0: CLS 

5050 PRINT AT 0,0;z$; INK 9; 

BRIGHT 1 1 '' 1 "2 STAMPA IM 
MAGINE" 

5060 PRINT '"Questa opzione perm 
ette di stampare una i 

mmagine su carta, naturalme 
nte dopo che essa sia stat 
a realizzata su video." 

5070 PAUSE 0: CLS 

5100 PRINT AT 0,0;z$; INK 9; 

BRIGHT 1'''’"3 PULIZIA S 
CHERMO" 

5110 PRINT '"Questa opzione pu 
lisce la memoria del pr 

ogramma dalla ultima im 

magine realizzata. Ti s 

ara' sempre richiesto di 
confermare tale scelta. 

Rispondendo ~N~ tome 
rai al menumentre risponden 
do ~S~ perderai l'immagine 
cui stavi lavorando, che n 
on potrà' essere piu' r 
ichiamata. Dopo la pulizia 
può iscegliere un nuovo set 
di colori(INK,PAPER,BORDER) 

ii 

5120 PAUSE 0: CLS 

5150 PRINT AT 0,0;z$; INK 9; 

BRIGHT 1 ' ' ' "’4 STAMPA SU 
SCHERMO" 

5160 PRINT '"Scegliendo questa o 
pzione ti saranno richie 
sto le lettore chevuoi stam 
pare (1-31). “All 

argamento X oppure Y ?“ ti 
chiede di definire l'ampl 
iamento dei caratteri." 

5170 PRINT "Quando ti viene r 
ichlesto "Coordinata x ? 

devi indicare l'ascissa 
della posizione di stamp 
a. "Coordinata Y 7" invece 
richiede l'ordinata della 
posizione di stampa, a 
partire dal basso." 

5180 PRINT "Se il disegno esce d 
allo schcrmone sarai inform 
ato e tornerai al menu' p 
rineipale." 

5190 PAUSE 0: CLS 

5200 PRINT AT 0,0;z$; INK-9; 


BRIGHT 1''’'"6 
PROGRAMMA" 

5210 PRINT '"Questa opzione perm 
ette di salvare su nas 

tro l'intero programma 

, che potrà' essere rica 
ricato con BRIGHT 1;"L0A 

D ""AMPLIFICA""" 

5220 PAUSE 0: CLS : RETURN 

5999 STOP 

6000 CLS : FOR c=l TO co: LET sp 

= 0 

6010 FOR n=1 TO 32 
6020 IF a$(c)(n TO n) =" " THEN 
LET sp=sp+l: GO TO 6040 
6030 LET sp= 0 
6040 NEXT n 
6050 LET len=32-sp 
6070 PRINT AT 21,0;" 

ii 

6080 PRINT AT 21,0;a$(c)( TO len 

) 

6085 INK i(co) 

6090 FOR f = l TO' len*8 
6100 FOR n=0 TO 7 

6105 IF d$ (c)="s" THEN LET b=-n 

6106 IF d$(c)="d" THEN LET b=n 

6107 IF d$ (c)="n" THEN LET b=0 
6110 IF POINT (f-1,n)=0 THEN 

GO TO 6180 

6120 LET px=f*x(c)+w(c)+b 
6130 LET py=n*y(c)+v(c) 

6140 LET dx=(f+l)*x(c)+w(c)+b 
61 50 FOR g-1 TO y(c) 

6160 PLOT px,py+g 

6170 DRAW dx-px-1 ,0 : NEXT g 

6180 NEXT n: NEXT f 

6190 INK 9: NEXT c 

6195 RETURN 

7000 CLS : PRINT INVERSE 1;" IL 
DISEGNO ESCE DALLO SCHERMO 
. PAUSE 0: RETURN 

9000 CLS t PRINT AT 9,0;"PREMI U 
N TASTO PER REGISTRARE IL 
PROGRAMMA SU NASTRO. 

ii 

9010 PAUSE 0: CLS 

9020 PRINT AT 9,0 ;"REGISTRAZIONE 

II 

• • • 

9030 SAVE "AMPLIFICA" LINE 1 
9040 CLS : PRINT AT 9,0;"PREMI U 
N TASTO PER VERIFICARE LA 
REGISTRAZIONE DEL PROGRAMM 
A. " 

9050 PAUSE 0: CLS 

9060 PRINT AT 9,0 ;"VERI FICA REGI 
STRAZIONE..." 

9065 VERIFY "AMPLIFICA" 

9070 CLS : GO TO 65 
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C64 


«Qtgg9WgK;«MMrJV.i; XA&i 

Joystrck 


Fotoreporter 


E stola scoperto nelle fogne di uno gronde cit¬ 
tà americano una razza di formiche mutanti 
di dimensioni colossali. Il 'Urne' ti ha incarica¬ 
to di effettuare un reportage fotografando una 
formica e tu hai accettato, attirato dalle forti 
possibilità di guadagno. Ti sei quindi procura¬ 
to una cartina della rete fognaria e un aiutan¬ 
te che dalla superficie localizzerà le formiche 
per mezzo di un'apparecchiatura a raggi in¬ 
frarossi. 

Le fotografie riuscite della formica verranno pa 
gate a secondo dell’inquadratura effettuata: 
75 dollari per un'istantanea della testa. 25 per 
una laterale ed infine solo 10 per una scaden¬ 
te foto da tergo. Se per caso dovessi dimenti 
corti di avanzare la pellicola, puoi vendere le 
dopfne esposizioni ad un giornale di provincia, 
che però te le pagherà solamente un dollaro 
l'uno. 

La spesa del materiale è a tuo carico, perciò 


Ì00 DIMA%(5,6) ,B%(5,6),C%(5,6),0 
%(5) ,Q%(4) ,M%(4) : I= RND(-TI) : 
COTO330 

110 PRINTC$"{GIU'}"INT(TI/60):IF 
TI>TJGOTO 670 

120 Q = -2*(PEEK(T+0%(0))<M)-4*(PE 
EK(T+0%(O- 1 ))<M)-(PEEK(T+0%( 
0+1))<M) 

130 FORI= OTO 5 :X = I+S:FORJ = 0TO6:A= 
A%(I,J):IFA=OGOTO170 
140 IFJ = OTHENIFPTHENIF(AANDQ) = (A 
ANDV)THENJ-6 : GOTO17 0 
1 50 Z=W*J+X: IFAANDQTHKNPOKEZ, C%( 
I, J) :GOTO 170 
160 POKEZ, B%( I , J) 

170 NEXT:NEXT:V=Q:RETURN 
180 A=PEEK(D) : IFCTHENA=(A/4AND7) 
+(8ANDPEEK(D+l)/l6)+(A/2AND1 
6) 

190 IF(AAND31)=31THENRETURN 
200 ONLOG(NOTAAND31)/L2GOTO230,2 
40,260,570:1=T+0%(0) 

210 IFPEEK(I)=HTHENPOKET,H:T=I :P 
OKET,G 
220 RETURN 

230 I=T-0%(0):G0T0210 


ogni foto sprecata o non scattata ti costa 2 dol 
lari. 

Sullo schermo del C64 appare la mappa della 
rete fognarie, sempre diversa ogni volta che si 
gioca, con indicata la posizione del giocatore 
e quella della formica; viene mostrato inoltre 
ciò che si vede nel mirino della macchina foto 
grafico. Compaiono anche un contasecondi, 
l’indicatore di effettuato avanzamento pellicola 
e il contafotogrammi. Il funzionamento del joy¬ 
stick (porta 2) è leggermente diverso da audio 
usuale: spinto verso l’alto fa proseguire dritto 
il fotografo; verso il basso lo fa retrocedere, 
mentre a destra e sinistra lo fa ruotare di 90 
gradi nelle rispettive direzioni. Il pulsante ser¬ 
ve per scotture le foto ed infine la barra spa 
ziatrice fa avanzare la pellicola. Il gioco termi¬ 
na quando tutti i 24 fotogrammi del rullino so¬ 
no stati esposti, oppure quando il contasecon¬ 
di indica che sono trascorsi 5 minuti. 


240 0=1 -O* (0< 4) 

250 G=Q%(0):POKET,G:RETURN 
260 0=0-1-4*(0=1):GOTO250 
270 I=N+0% (L) :IFPEEK(I)=HTHENPOK 
EN,H:N = 1 :GOT02 90 
280 1=L:L=1+FNR(4) : I FI=LGOTO280 
290 POKEN,Q%(L):RETURN 
300 GOSUBl80 :GETA$: IFA$<>""THENP 
RINTC$" { 2 GIU * } ( 2 SPAZI } 1^ 

":PRINTBS" -K":WD=1 
310 GOSUBl10:GOSUB270:IFT+0%(O)< 
>NTHENONR+1 GOTO30 0 :R = 0:P=0:G 
OSUB120 :P=1 : GOTO300 

32 0 R=1 :B=L-0-4*(0>L) :FORY = 0TO2: 

Z = U + W*Y:FORX = OTO1 :POKEX+Z,FN 
F (B) :NEXT 
325 NEXT:GOTO300 

33 0 DEFFNR(X)=I NT(RND(1)*X) :M=12 

8 tDEFFNF(Z)=ASC(MID$(F$,1+Z* 
6+Y * 2 + X) ) 

350 W = 40:L=1024:D = 56320:POKE5328 
1/1 

360 FORI =1 TOl 8 : D$ = D$ + " , ':C$=C$ + ,, 
: NEXT : A$ = LEFT$ (D$,W/2-6):B 
$=LEFT$( A$,W/2-10) 
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370 PRINT"{CLR}": PRINTA$" {BLK}U 
{ 8 *}r':PRINTA$'MCYN} [<*>] 
{UVST{ 6 SPAZI}{OFF}CtBLK}^ 

II 

375 PRINTAS"^ {CYN} [<*>) lUVS} 

{ 4 SPAZI}{OFF}L{BLK} 

380 PRINTA$"-j 2 SPAZI}{CYN} 

{ 4 SPAZI}{BLK}{ 2 SPAZI}- 

[<Q>}+{ 2 *}+ 1<W>]": FORI=1T0 

3:PRINTA$"-{ 8 SPAZI}-_[ <Q> ] 
[<W>}{ 2 SPAZI}[<Q>][<W>]":N 
EXT 

390 PRINTA$"-{ 2 SPAZI}{GRN} 

{ 4 SPAZI}{BLK}{ 2 SPAZl}- 
(<Q>] + { 2 * } + [<W>] '* : PRINTA$" 
- {GRN}{RVS}C{ 4 SPAZI}[<*>] 

Toff}{blk} 

400 PRINTAS"-{GRN}{RVS}E 

{ 6 SPAZI} [<*>) {OFFTIBLK}-": 
PRINTA$"J{ 8 *}K":PRINTB$" 
{RVS}U"C$"I" 

410 FORI = 1 T09 : PRI NTB$ " { RVS }-^ 
{BLK}"D$"-":NEXT:PRINTB$" 
{RVS} J"C$"K{OFF}"; 

420 E=L+12*W+W/2-11 :S=L+3*W+W/2- 
4:0 = 1 :H = 160 :GOSUB560:H = 32:U = 
S + 2+ 2 *W 

4 30 R% = S+ ì 0+2*W:O%(1)=-W:0%(2)=- 
1 :0%(3)=W:0%(4)=1 :O%(0)=1:O% 
{5)=-W 

440 Q%(1)=-W-W:Q%(2)=W-1:Q%(3)=W 
+1:Q%(4)=1-W:C$=“{HOME}"+B$ 
450 POKEI,H:Z = 6:FORY = FNR(3)T05: A 
= I+0 %(Y) :IFPEEK(A)< >16 0GOTO4 
80 

460 F = 0:G = 0:J=0:FORX=1T04:F = F-(P 
EEK(A+Qo(X))=H):IFPEEK(A+0%( 
X))=HTHENG=G+1 :J=X-J 
470 NEXT: IFF<4ANDG<20R<G<3ANDF<1 
)OR(G = 2ANDABS(J)=2)THEN Z = Y:Y 
= 6 

480 NEXT:IFZ<6THENI=1+0%(Z):V=V+ 

1 :GOTO4 50 

490 IFV< 95THENGOSUB560: GOTO450 
500 FORI=0TO6:A%(0,I)=1:A%(5,I)= 
4 :FORJ = 0TO5:B%(J,I)=H:C%(J,I 
)=160:NEXT:NEXT 

510 FORI=1T04:A%(I,1)=2:A%(I,5)= 

2 :NEXT: FORI= 2TO 3 :FORJ = 2T04: A 
%(1,J)=2:NEXT:NEXT 

520 B%(0,0)=95:B%(5,0)=105:B%(0, 
6)=233:B%(5,6)=223:P=1:L2=LO 
G(2):TJ=18000 


Aspettiamo 
i tuoi lavori 
migliori! 


530 C%(1,1)=95:C%(4,1)=105:C%(1, 
5)=233:C%(4,5)=223 :FORZ=1T02 
4 :READA 

540 F$=F$+CHR$(A+ 4 6+M) :NEXT:Q %(1 
)=30 :Q%(2)=60:Q%(3)=22:Q%(4) 
=62:GOSUB560 

545 N=I:FR=1 

550 GOSUB280:V=0 :F = 0:G=Q%(O) :GOS 
UB560:T=I:POKET,G:GOSUB660:T 
I$ = "000000": GOTO310 

560 I=E+2+W+FNR(17)+W*FNR(9):A=P 
EEK (I) :ON- (AOH) GOTO 560 : RETO 
RN 

570 ONWD+1 GOTO630 : IFT+0%(0) ONTH 
ENAS="FOTO SPRECATA":F=0:I=H 
:J=0:GOTO640 

580 A$="CLICK":B=L-0-4*(0>L)+1:F 
=B:M%(B)=M%(B)+1 

590 FORY=0TO2:Z=R%+W*Y:FORX=0TOl 
:POKEX + Z,FNF(B-1) -M:NEXT:NEX 
T 

600 IFMSTHENMS=0:POKEK,46:G0T065 
0 

620 POKEN,H:GOSUB56 0 :N = I:GOTO650 

630 A$ = "DOPPIA ESPOSI ZIONE":FR=F 
R+l*(FR>0):DE=DE+1:M%(F)=M%( 
F)-1 :F = 0: 1=66:J = 16 

640 FORY = OTO2:Z = R%+W*Y:FORX = OTO1 
:POKEX+Z,I+FNR(J):NEXT:NEXT 

650 PRINTCSSPC(10-LEN(A V)/2)A$:F 
ORI=lTOl000:NEXT:WD=0 

660 PRINTC$D$+" ":PRINT:PRINT:PR 
INTB$"{GIU 1 }"FR:PRINTB$" 

{ 3 SU}{ 3 SPAZI}":PRINTB$" 

{ 3 SPAZI}":FR=FR+1 

665 IFFR< 25THENRETURN 

-670 PRINT"{CLR}IL REPORTAGE E' F 
INITO":PRINT 

675 PRINT"'TIME’ COMPRA LE FOTO 
PAGANDO":PRINT 

680 I=M%(3) :A = I*75 :PRINTI"PRIMI 
PIANI DEL CAPO A §75 L'UNO": 
IFCTHENPOKEK,46 

690 J=M%(2)+M%(4):A=A+25*J:PRINT 
J"PRIMI PIANI DEL TORACE A § 
2 5 L 1 UNO": I=I+J 

70 0 J=M%(1) :A=A+J * 10 :PRINTJ"PRIM 

1 PIANI DELL'ADDOME A $10 L* 
UNO":PRINT:J=24-I-J 

710 PRINTDE"DOPPIE ESPOSIZIONI A 
$1 L*UNA":PR1NT 

715 PRINTJ"FOTO MANCATE: PERDI $ 

2 L'UNA":A=A-J*2 

7 20 A=A+DE:PRINT :GU$ = STR$(A) :PRI 
NT"TOTALE §"GU$:POKEI98,0 : I = 
TI 

730 GETA$: IFA$ = ""ANDTI<I+2000GOT 
0730 

740 RUN:DATA27,39,39,27,61,69,39 
,39,35,47,,29,27,39,35,35,,, 
27,27,47,35,28,, 
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Mister serpente 

lovM'Ck 



"Mister Serpente" è un programma che si /spi 
ra ad un famoso video gioco, di solito presen¬ 
te nelle sale specializzate. 

Si tratta di guidare con joystick (porta 2) un 
serpente in un labirinto in modo da fargli man 
giare via via tutte le mele che egli incontra. At¬ 
tenzione. però: il serpente si allunga ogni volta 
che mangia una mela, per cui è sempre più 
difficile evitare di incontrare con la testa il re¬ 
sto del corpo. 

Una volta completato il primo quadro, ne esi 
stono altri due due difficoltò crescente: sono 
presenti anche alcuni teschi che occorre osso- 

33 PRINT"{CLR}" 

34 IFPEEK ( 1 ) 0 55THENPRINT" {HOME} 

{ 12 GIU'H io DESjSPEGNI IL 
REGISTRATORE": GOTO34 

35 PRINT"{CLR}{ 12 GIU * } 

{ 15 DES}ATTENDI":FORT=1TOl00 
0 :NEXT 

40 POKE808,22 5 :POKE53 265, PEEK(53 
265)AND239 

50 V=54 27 2 :POKEV+24,15:POKEV,19 6 
:POKEV+1 ,9 :POKEV+4,129:POKEV+ 
5,20:POKEV+ 6,0 

70 POKEV+ 7,196:POKEV+ 8,9 :POKEV+ 
11,17: POKEV+1 2,7: POKEV-*-1 3,0: 
100 POKEV+14,15b:POKEV+15,4 : PO 

KEV + 19,07: POKEV+ 2 0,0 
10 5 FORT* 49 7 97T049 811 :READX:POKE 
T,X :NEXT 

110 F0RT= 497 20TO4 9 770 :READX:POKE 
T,X :NEXT 

12 0 FORT=4919 2T0 4 9 6 8 2 :READX:POKE 

T,X :NEXT 

130 FORT= 5 0 00 0T0 50928 :READX:POKE 
T, X :NEXT:FORT=49690TO49693:R 
EADX:POKET,X :NEXT 

131 FORT=4 91 52T04 91 8 6 :READX:POKE 
T,X :NEXT:SYS49152 

13 2 FORT = 52991TO53068:READX:POKE 

T,X :NEXT 

135 POKE56 3 34 ,PEEK(56334)AND254 : 
POKE1 ,PEEK(1 )AND 2 51 

136 READX:1FX = -1THEN1 50 

140 POKF.828 + I ,X: I =1 + 1 :GOTOl 36 
150 FORT=l 2288T01 2288 + 256* 8 :POKE 
T,PEEK(T+ 4 0 960) :NEXT:SYS5305 
7 


lutamente evitare. Se siete riusciti a superare 
il terzo quadro (cosa altamente improbabile), 
si ritorna al primo quadro, ma ora con una ve¬ 
locità del serpente più elevala. 

Per questo programma l'utilizzazione del solo 
linguaggio BASIC avrebbe condotto ad una ec¬ 
cessiva lentezza dei movimenti, per cui si è 
spesso fatto uso del linguaggio macchina. 
Ricordatevi infine di salvare il programma pri¬ 
ma di dare il RUN, poiché un eventuale errore 
nella trascrizione della parte in linguaggio mac 
china si risolverebbe quasi sicuramente nel bloc 
co e quindi nella perdita totale del programma. 


160 POKE1, (PEEK(1)OR4) :POKE56334 
,(PEEK(56334)0R1) 

165 POKE53272, (PEEK(53272)AND240 
) +1 2 

170 POKE5326 5,PEEK(5 3265)ORI 6 
175 PRINT"{CLR}{ 12 GIU'} 

{ 4 DES}{RVS}PREMI UN TASTO 
PER INCOMINCIARE" 

177 GETA$: IFA$ = ""THEN177 
180 W= 0 :Z = 0 

190 C=230:1=1:FORT=51000TO51005: 
POKET,0:NEXT 

200 ONIGOSUBl000,1500,2000:POKE5 
5296,4 . 

205 FORT =19 0TO195 :POKET,0 :NEXT 
210 POKE53 030,0:POKE53031 ,4:POKE 
530 39,0:POKE5 30 4 0,21 6 
215 POKE5090 0,4 :POKE50909,4 :SYS 5 
2991:FORT=lTOl000:NEXT 
220 SYS49169:POKE49670,C:SYS4919 
7 

225 P=PEEK(PEEK(49426)+PEEK(4942 
7)*256) 

2 30 IFP=240RP=200RP=210RP = 220RP = 
23THEN500 

2 50 FORT=1T02:FORP=1T02:POKE5303 
7,P:POKE530 30,0 :POKE530 31 , 4 : 
POKE530 39,0 

2 60 POKE530 4 0,21 6:SYS 52991 :FOR0W 
= OTO100 :NEXTQW,P,T:POKE530 3 7 

• '4 

27 0 1 = 1 + 1 : IFI=4THEN600 
280 GOTO2 00 

500 W=W+1 :POKE1 054+W,10:POKE55 3 2 
6 + W,4 : IFW= 3THENFORT=1T02 0 00: 
NEXT:GOTO 900 
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504 POKE53033,24 

505 FORT=12TO14 :POKE5 3037,T: SYS 5 
2991 :POKE530 30,0 :POKE530 31 ,4 
:POKE53039,0 

506 POKE53040.21 6 :POKE54290,1 29: 
FORX = 1TO100 :NEXT:POKE54 2 90,1 
28:NEXT:POKE53037,4 

507 POKE53033,1 0 

510 SYS50883:K=PEEK(49513)+PEEK( 
4 9 51 4)*256:POKEK,32:POKEK-1, 
32 : POKER-40,32 
520 POKEK-41,32 

530 FORT =1 9 07TO1 93 7 :POKET,24 :POK 
ET+40,24 :NEXT: 

540 POKE1 9 36/27:POKEl 937,28 :POKE 
1976,26:POKEl977,25:GOT0210 
600 POKE53 27 2,21 :PRINT"{CLR} 

{ 10 GIU’}{ 15 DES}B R A V O 
{ 2 SPAZI}{ 3 GIU’}": I = 1 
610 PRINT"{ 9 DES1 HAI SUPERATO U 
N LIVELLO1<5>]" 

620 FORT=1T02000:NEXT:POKE532 7 2, 
29:C=C + 5 :IFC = 250THENC = 225 :GO 
TO700 

630 GOTO200 

700 Z=Z+1:IFZ=2THENZ=1 
710 GOTO200 

800 FORT 1 4TO0STEP-1 :POKEl 030+T, ( 
PEEK(51004-T))+48:NEXT 
810 FORT=1T03-W:POKEl058-T,11 : NE 
XT:RETURN 

900 POKE5327 2,21:PRINT"{CLR} 

{ 12 GIU’}{ 10 DES}{RVS} 

{PUR} F I N E{ 3 SPAZI}G I 0 
CO" 

905 FORT=1T0 2000 :NEXT 
910 PRINT"{CLR}{ 2 GIU'} 

{ 3 DES}VUOI GIOCARE ANCORA 
(S/N) ?(<7>]":POKE198,0 
920 GETA$: IFA$ = ""THEN920 
930 IFAS = "S"THENPOKE53272,29 :GOT 
Ol 80 

94 0 IFA$ = "N"THENNEW: END 
950 GOTO92 0 

1000 PRINT"{CLR}JJJJJOOOOOOOJJJJ 
JJJJJJJJJJJJJJJJJJJJJJJJ"; ; 
GOSUB800 

1010 PRINT"J{ 4 SPAZI}RS 

{ 9 SPAZI}RS{ 14 SPAZI}RS 
{ 5 SPAZI}J"; 

1020 PRINT"J{ 4 SPAZI}QP 

{ 9 SPAZI)OP{ 14 SPAZI}QP 
{ 5 SPAZI}J"; 

1030 PRINT"J{ 2 SPAZI}JJJJJJ 
{ 2 SPAZI}JJJJJJJJJJJ 
{ 2 SPAZI} JJJ{ 2 SPAZI}JJJJ 
JJJJ{ 2 SPAZI}J"; 

1040 PRINT"J{ 2 SPAZI}JJJJJJ 
{ 2 SPAZIiJJJJJJJJJJJ 
{ 2 SPAZI}JJJ( 2 SPAZI}JJJJ 
JJJJ{ 2 SPAZI}J"; 

1050 PRINT"J{ 8 SPAZI}RSJJRS 


1 060 

1 070 

1080 

1 090 

1 1 00 

1110 

I 

1 1 20 

1 1 30 

1 140 

1 1 50 

1 1 60 

1 1 70 

1 1 80 

1 1 90 

1 200 

1210 


{ 9 SPAZI}JJJ{ 8 SPAZI }JJ 
{ 2 SPAZI}J"; 

PRINT"J{ 8 SPAZI}QPJJQP 
{ 9 SPAZI}JJJ{ 8 SPAZI}JJ 
{ 2 SPAZI}J"; 

PRINT"J{ 2 SPAZI}JJJJJJJJJJ 
{ 2 SPAZI}JJJ{ 2 SPAZI}JJ 
{ 2 SPAZI}JJJJJJJJJ 
{ 2 SPAZI} JJ{ 2 SPAZI}J"; 
PRINT"J{ 2 SPAZI}JJJJJJJJJJ 
{ 2 SPAZI}JJJ{ 2 SPAZI}JJ 
{ 2 SPAZI}JJJJJJJJJ 
{ 2 SPAZI}JJ{ 2 SPAZI } J"; 
PRINT"J{ 4 SPAZI}RS 
{ 8 SPAZI}JJJ{ 2 SPAZI}JJ 
{ 8 SPAZI}JJJ{ 2 SPAZI}JJ 
{ 2 SPAZI}J"; 

PRINT"J{ 4 SPAZI}QP 
{ 8 SPAZI}JJJ{ 2 SPAZI}JJ 

{ 8 SPAZI}J J J RS{ 4 SPAZI}J" 

• 

r 

PRINT"J{ 2 SPAZI}JJJJJJ 

{ 2 SPAZI}JJ{ 2 SPAZI}JJJ 

{ 2 SPAZI }JJ{ 2 SPAZI }JJJJ 

{ 2 SPAZI}JJJQP{ 4 SPAZI}J" 
• 

PRINT" J { 2 SPAZI }JJJJJJ 
{ 2 SPAZI}JJ{ 2 SPA ZI}JJJ 
{ 2 SPAZI} JJ { 2 SPAZI }JJJJ 
{ 2 SPAZI }JJJJJJJ 
{ 2 SPAZI }J"; 

PRINT"J{ 6 SPAZI}JJ 
{ 2 SPAZI}JJ{ 2 SPAZI}JJJ 
{ 2 SPAZI}JJ{ 2 SPAZI}JJJJ 
{ 2 SPAZI}JJJJJJJRSJ"; 
PRINT"J{ 6 SPAZI}JJRS 
{ 4 SPAZI}JJJRS{ 6 SPAZI}JJ 
{ 6 SPAZI}JJJQPJ"; 

PRINT"J{ 2 SPAZI}JJ 
{ 2 SPAZI}JJQP{ 4 SPAZI}JJJ 
QP{ 6 SPAZI}JJ{ 6 SPAZI}JJJ 
{ 2 SPAZI}J"; 

PRINT"J{ 2 SPAZI}JJ 
{ 2 SPAZI}JJJJJJ{ 2 SPAZI} 
JJJJJJJJJ{ 2 SPAZI}JJ 
{ 2 SPAZI}JJ{ 7 SPAZI}J"; 
PRINT"J{ 2 SPAZI}JJ 
{ 2 SPAZI}JJJJJJ{ 2 SPAZI} 


JJJJJJJJJ{ 2 SPAZI }JJ 
{ 2 SPAZI}JJ{ 7 SPAZI}J"; 
PRINT"J{ 2 SPAZI}JJRS 
{ 4 SPAZI}JJRS{ 5 SPAZI}RS 
{ 6 SPAZI}RSJJ{ 2 SPAZI}JJJ 
{ 2 SPAZI}J"; 

PRINT"J{ 2 SPAZI}JJQP 
{ 4 SPAZI}JJQP{ 5 SPAZI}QP 
{ 6 SPAZI}QPJJRSJJJRSJ"; 
PRINT"J{ 2 SPAZI}JJJJJJ 
{ 2 SPAZI}JJJJJ{ 2 SPAZI}JJ 
JJJJ{ 2 SPAZI}JJJJJJQPJJJQP 
J"; 

PRINT"J{ 2 SPAZI}JJJJJJ 
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{ 2 SPAZI}JJJJJ{ 2 SPAZI}JJ 
JJJJ{ 2 SPAZI 
{ 2 SPAZI}JJJ{ 2 SPAZI}J"; 

1220 PRINT" J{ 2 SPAZI}XXXXXXXXXX 
XXXXXXXXXXXXXXXXXXX[£ 

{ 5 SPAZI}J"; 

1230 PRINT"J{ 2 SPAZI}XXXXXXXXXX 
XXXXXXXXXXXXXXXXXXXZY 
{ 5 SPAZI}J"; 

1 240 PRINT"JJJJJJJJJJJJJJJJJJJJJ 
JJJJJJJJJJJJJJJJJJ"; :POKE20 
23,10 

1260 POKE50814,32:POKE50806,5+Z: 
POKE50 8 36,3 

1270 RETURN 

1 500 PRINT"{CLR}JJJJJOOOOOOOJJJJ 
JJJJJJJJJJJJJJJJJJJJJJJJ"; : 
GOSUB800 

1510 PRINT"J{ 24 SPAZI}RSJJ 
{ 10 SPAZI}J"; 

1520 PRINT"J{ 24 SPAZI}QPJJ 
{ 10 SPAZI}J"; 

1530 PRINT"J{ 2 SPAZI}JJJJJJJJJJ 
JJJ{ 2 SPAZI}JJJ{ 2 SPAZI} 
JJ{ 2 SPAZI}JJ{ 2 SPAZI}JJ 
{ 2 SPAZI}JJ{ 2 SPAZI}j”; 

1540 PRINT"J{ 2 SPAZI}JJJJJJJJJJ 
JJJ{ 2 SPAZI)JJJ{ 2 SPAZI} 
JJ{ 2 SPAZI}JJ{ 2 SPAZI}JJ 
{ 2 SPAZI}JJ{ 2 SPAZI}J"; 

1550 PRINT"J{ 4 SPAZI}JJJ 

{ 6 SPAZI}JJ{ 2 SPAZI}JJJ 
{ 2 SPAZI}JJ{ 2 SPAZI}JJ 
{ 2 SPAZI}JJ{ 2 SPAZI}JJRSJ 

H . 

1560 PRINT"J{ 4 SPAZI}JJJ 

{ 6 SPAZI}JJ{ 2 SPAZI}JJJ 
{ 2 SPAZI}JJ{ 2 SPAZI}JJ 
{ 2 SPAZI}JJ{ 2 SPAZI}JJQPJ 

Il . 
t 

1570 PRINT"JJJRSJJJRSJJ 

{ 6 SPAZI}JJJ{ 2 SPAZI}JJ 
{ 4 SPAZI}RSJJ{ 2 SPAZI}JJ 
{ 2 SPAZI }J"; 

1580 PRINT"JJJQPJJJQPJJ 

{ 6 SPAZI } JJJ{ 2 SPAZI}JJ 
{ 4 SPAZI}QPJJ{ 6 SPAZI}J"; 

1590 PRINT"JJJ{ 2 SPAZI)JJJ 

( 2 SPAZI}JJ{ 2 SPAZI}JJ 
{ 5 SPAZI}RSJJ{ 2 SPAZI}JJ 
{ 2 SPAZI } JJ{ 6 SPAZI}J" ; 

IbOO PRINT"J{ 4 SPAZI)JJJ 

{ 2 SPAZI}JJ{ 2 SPAZI}JJ 
( 5 SPAZI}QPJJ{ 2 SPAZI}JJ 
{ 2 SPAZI}JJ( 2 SPAZI}JJJJJ 

M . 

1610 PRINT"J{ 4 SPAZI}JJJ 

{ 6 SPAZI)JJ{ 2 SPAZI}JJJJJ 
JJi 2 SPAZI}JJ t 2 SPAZI}JJ 
{ 2 SPAZI}JJJJJ"; 

1620 P RI NT"J{ 2 SPAZI}JJJJJ 

{ 6 SPAZI|JJ( 2 SPAZI}JJJJJ 


JJ{ 4 SPAZI}RSJJl 6 SPAZI} 

J" ; 

1 630 PRI NT"J{ 2 SPAZI}JJJJJJJJJ 
{ 2 SPAZI}JJRSl 5 SPAZI}JJ 
{ 4 SPAZI}QPJJ{ 6 SPAZIjj"; 

1640 PRI NT"J{ 2 SPAZI}JJJJJJJJJ 
{ 2 SPAZI}JJQP{ 5 SPAZI}JJ 
( 2 SPAZI}JJ( 2 SPAZI}JJ 
{ 2 SPAZI}JJ{ 2 SPAZI}J"; 

1650 PRINT"J{ 2 SPAZI}JJ 

{ 3 SPAZI}RSJJ{ 2 SPAZI}JJJ 
JJJJ{ 2 SPAZI}JJ{ 2 SPAZI} 
JJ( 2 SPAZI}JJ{ 2 SPAZI}JJ 
( 2 SPAZI}J"; 

1660 PRINT"J{ 2 SPAZI}JJ 

( 3 SPAZI}QPJJ{ 2 SPAZI}JJJ 
JJJJ { 2 SPAZI)JJ( 2 SPAZI) 
JJWVJJl 2 SPAZI}JJ 
) 2 SPAZI}J"; 

1 670 PRINT"J{ 2 SPAZI }JJ 

I 2 SPAZI}J{ 2 SPAZI}JJ 
i 2 SPAZI } JJJJJJJ 
1 2 SPAZI)JJ{ 2 SPAZI}JJUTJ 
JRSJJ( 2 SPAZI}J"; 

1 680 PRINT"J{ 9 SPAZI}JJRS 

( 11 SPAZI}RSJJ{ 2 SPAZI}JJ 
QPJJ{ 2 SPAZI}J"; 

1690 PRINT"J( 9 SPAZI}JJQ? 

{ 11 SPAZI }QPJJ{ 2 SPAZI }JJ 
{ 2 SPAZI } JJ{ 2 SPAZI}J"; 

1700 PRINT"J{ 2 SPAZIJJJJJJJJJJJ 
JJJJJJJJ{ 2 SPAZI}JJJJJJJJJ 
J{ 2 SPAZI}JJ{ 2 SPAZI}J"; 

1710 PRINT"J{ 2 SPAZI}JJJJJJJJJJ 
JJJJJJJJ{ 2 SPAZI}JJJJJJJJJ 
J{ 2 SPAZI}JJ( 2 SPAZI}J"; 

1720 PRINT"J{ 2 SPAZI}XXXXXXXXXX 
XXXXXXXXXXXXXXXXXXX[£ 

{ 3 SPAZI)RSJ"; 

1730 PRINT"J{ 2 SPAZIJXXXXXXXXXX 
XXXXXXXXXXXXXXXXXXXZY 

( 3 SPAZI}QPJ"; 

1731 PRINT"JJJJJJJJJJJJJJJJJJJJJ 
JJJJJJJJJJJJJJJJJJ";:POKE20 

23,1 0 

1 750 POKE5081 4,26:POKE50806,10 + Z 
: PORESO8 36,3:RETURN 

2000 PRINT"{CLR}JJJJJOOOOOOOJJJJ 
JJJJJJJJJJJJJJJJJJJJJJJJ”; : 
GOSUB800 

2010 PRINT"J{ IO SPAZI}RS 

{ 7 SPAZI}RS{ 7 SPAZI}JJJJJ 
J{ 4 SPAZI}J"; 

2020 PRINT"J{ 10 SPAZI}QP 

{ 7 SPAZI}QP{ 7 SPAZI}JJJJJ 
J{ 4 SPAZI}J"; 

2030 PRINT"J{ 2 SPAZI}JJJJJ 

{ 2 SPAZI}JJJJJ{ 2 SPAZI}JJ 
JJJJJJJJ{ 2 SPAZI}JJJJJJ 
{ 2 SPAZI}WVJ"; 

2040 PRINT"J{ 2 SPAZI}JJJJJ 


23 



{ 2 SPAZI}JJJJJ{ 2 SPAZI}JJ 
JJJJJJJJ{ 6 SPAZI}JJ 
{ 2 SPAZI}UTJ"; 

2050 PRINT"JRSJJJJJ{ 3 SPAZI)RS 
{ 4 SPAZI}JJ{ 4 SPAZI}RSJJ 
{ 6 SPAZI} J J{ 4 SPAZI} J"; 

2060 PRINT"JQPJJJJJ{ 3 SPAZI}QP 
{ 4 SPAZI}JJ{ 4 SPAZI}QPJJ 
{ 2 SPAZI}JJ{ 8 SPAZI}J"; 

2070 PRINT"J{ 2 SPAZI}JJJJJJJJJJ 
JJ{ 2 SPAZI)JJ{ 2 SPAZI}JJ 
{ 2 SPAZI}JJ{ 2 SPAZI}JJ 
{ 8 SPAZI}J"; 

2080 PRINT"J{ 2 SPAZI}JJJJJJJJJJ 
JJ{ 2 SPAZI}JJ{ 2 SPAZI)JJ 
{ 2 SPAZI}JJ{ 4 SPAZI}JJJJ 
{ 2 SPAZI}JJJ"; 

2090 PRINT"J{ 10 SPAZI}RSJJ 

{ 6 SPAZI }JJ{ 2 SPAZI}JJ 

{ 4 SPAZI}JJJJ{ 2 SPAZI}JJJ 

•• . 
t 

2100 PRINT"J{ 10 SPAZI}QPJJ 

{ 6 SPAZI}JJ{ 2 SPAZI}JJJJ 
{ 2 SPAZI}JJ{ 6 SPAZI }j"; 

2110 PRINT"J{ 2 SPAZI} J J J J 

{ 2 SPAZI}JJ{ 2 SPAZI}JJ 
{ 2 SPAZI}JJ{ 8 SPAZI}JJRSJ 
J{ 6 SPAZI}J"; 

2120 PRINT"J{ 2 SPAZI}JJJJ 

{ 2 SPAZI}JJ{ 2 SPAZI}JJ 
{ 2 SPAZI}JJ{ 8 SPAZI}JJQPJ 
J{ 2 SPAZI}JJ{ 2 SPAZI}j"; 

2130 PRINT"J{ 2 SPAZI}JJJJ 

{ 2 SPAZI}JJ{ 2 SPAZI)JJ 
{ 2 SPAZI}JJJJJJJJ 
{ 2 SPAZI} J J { 2 SPAZI}JJ 
{ 2 SPAZI} J J { 2 SPAZI} J"; 

2140 PRINT"J{ 3 SPAZI)RS 

{ 7 SPAZI}JJ{ 2 SPAZI)JJJJJ 
JJJ{ 6 SPAZI} JJ{ 4 SPAZI}RS 
J"; 

2150 PRINT"J{ 3 SPAZI)QP 

{ 7 SPAZI}JJ{ 6 SPAZI}WVJJ 
{ 6 SPAZI}JJ{ 4 SPAZI}QPJ"; 

2160 PRINT"J{ 2 SPAZI}JJJJ 

{ 2 SPAZI}JJ( 2 SPAZI}JJ 
{ 6 SPAZI}UTJJJJ{ 2 SPAZI} 
JJJJ{ 2 SPAZI}JJJJJ"; 

2170 PRINT"J{ 2 SPAZI}JJJJ 

{ 2 SPAZI}JJ{ 2 SPAZI}JJJJ 
{ 2 SPAZI}JJ{ 2 SPAZI}JJJJ 
{ 2 SPAZI}JJJJ{ 2 SPAZI}JJJ 
JJ" ; 

2180 PRINT"J{ 3 SPAZI}RS 

{ 5 SPAZI}WVJJJJ{ 4 SPAZI} 
RSJJJJRSJJ{ 6 SPAZI}RSJ"; 

2190 PRINT"J{ 3 SPAZI}QP 

{ 5 SPAZI}UTJJJJ{ 4 SPAZI} 
QPJJJJQPJJWV{ 4 SPAZI}QPJ"; 

2200 PRINT"J{ 2 SPAZI}JJJJJJJJ 


{ 2 SPAZI}JJJJJJJJJJJJJJ 
{ 2 SPAZIIJJUTJJJJ 
{ 2 SPAZI}J"; 

2210 PRINT"J{ 2 SPAZI}JJJJJJJJ 
{ 2 SPAZI}JJJJJJJJJJJJJJ 
{ 2 SPAZI}JJ{ 2 SPAZI}JJJJ 
{ 2 SPAZI}J"; 

2220 PRINT"J{ 2 SPAZIJXXXXXXXXXX 
XXXXXXXXXXXXXXXXXXX[£ 

{ 5 SPAZI}J"; 

2230 PRINT"J{ 2 SPAZI}XXXXXXXXXX 
XXXXXXXXXXXXXXXXXXXZY 
{ 5 SPAZI}J"; 

2240 PRINT"JJJJJJJJJJJJJJJJJJJJJ 
JJJJJJJJJJJJJJJJJJ"; :POKE20 
23,10 


3000 POKE50814,26:POKE50806,8 + Z: 
POKE50 8 36,3 : RETURN 


1 0000 

DATA 

141, 144, 

7, 

141 , 

145 


, 7 , 

141, 185, 

7 , 

1 62, 

246 


, 24, 

96 




1 001 0 

DATA 

24, 96 




1 0020 

DATA 

169, 26, 

141 

, 1 84 

, 7, 


1 69, 

27, 141, 

1 4 

4, 7, 

162 


, 250 

, 1 69 




1 0030 

DATA 

28, 141, 

145 

, 7, 

1 69, 


32, 

141, 115, 

7 , 

141 , 

1 55 


, 7, 

165 




1 0040 

DATA 

195, 201, 

0 , 

208 , 

3, 


76, 1 

12, 193, 

1 98 

, 195 

, 16 


2, 0, 

1 72 




ì 0050 

DATA 

6, 194, 2 

32, 

208, 

253 


, 232 

, 200, 208, 

249 , 

76, 


45, 1 

9 2 




10060 

DATA 

133, 194, 

76 

, 183 

, 19 


6, 21 

6, 162, 2 

48, 

24, 

173, 


0, 220, 201 




1 0070 

DATA 

125, 208, 

44 

, 173 

, io 


5, 19 

3, 105, 39, 

141 , 

73, 


1 92, 

173, 106 




1 0080 

DATA 

193, 105, 

0, 

141 , 

74, 


192, 

173, 116 

, 7 

, 201 

r 32 


, 208 

, 21 




1 0090 

DATA 

169, 105, 

76 

, 40, 

1 92 


r 141 

, 94, 193 

, 1 

69, 2 

4, 1 


41 , 8 

2, 193 




1 01 00 

DATA 

169, 40, 

141 

, 87, 

193 


, 76, 

182, 198, 

24 

, 1 38 

, 24 


, 1 05 

, 8 




10110 

DATA 

170, 189, 

80 

r 195 

, 14 


1 , 48 

, 192, 189, 

81 , 1 

95, 


141 , 

53, 192 




101 20 

DATA 

189, 82, 

195 

, 141 

, 59 


, 1 92 

, 189, 83 

, 1 

95, 1. 

41 , 


60, 1 

92, 189 




101 30 

DATA 

84, 195, 

141 

, 67, 

1 92 


, 1 89 

, 85, 195 

, 1 

41, 80, 1 


92, 1 

vO 

00 

CTS 

CO 




101 40 

DATA 

195, 141 , 

88 

, 1 92 

, 18 


9, 87 

, 195, 14 

1 , 

93, 1 ! 

92, 


224, 24, 208 


24 



10150 DATA 1 4 6, 1 73, 82, 1 93, 1 4 
1, 179, 192, 173, 86, 193, 
141, 183, 192 

10160 DATA 1 41 , 1 91 , 1 92, 1 73, 8 
7 , 1 93, 32, 1 54 , 1 96, 24 , 
173, 105, 193 

10170 DATA 1 05, 1 , 1 41 , 1 8 , 1 93, 
1 73 , 1 06, 1 93, 1 05, 0 , 1 4 
1 , 19, 193 

10180 DATA 1 73, 87 , 1 93, 201 , 40 
, 208, 16, 169, 2, 141, 3, 
193, 169 

10190 DATA 1,141, 240, 192, 76, 
235, 192, 76, 148, 196, 1 
69, 80, 141 

10200 DATA 3, 193, 169, 40, 141, 
240, 192, 76, 235, 192, 1 
41, 242, 192 

10210 DATA 24, 173, 105, 193, 10 
5, 40, 234, 234, 141, 81, 
196, 173, 106 

10220 DATA 193, 105, 0, 141, 82, 
196, 56, 173, 105, 193, 2 
33, 80, 234 

10230 DATA 234, 141, 113, 196, 1 
73, 1 06, 1 93, 233, 0 , 1 41 , 
114, 196, 173 


10240 DATA 186, 7, 201, 10, 208, 
3, 76, 80, 196, 201, 16, 
76, 124 


1 0250 

DATA 

197, 

82, 

193, 

169, 

24 


, 141 

, 1 84 

, 7, 

1 69 

, 24, 

32 


, 133 

, 194 





1 0260 

DATA 

232, 

240, 

55, 

189, 

1 2 


9, 1 94 , 1 41 , 84 , 1 93, 1 41 , 
89, 193, 105 

10270 DATA 1, 141, 92, 193, 141, 
97, 193, 24, 189, 145, 19 
4, 141, 85 


1 0280 

DATA 193, 

141 , 

90, 193, 


5, 0, 141, 

93, 

193, 141 


8, 193, 24 



1 0290 

DATA 173, 

1 92, 

255, 105 


, 141, 192, 255, 173, 193, 
255, 105, 0 

10300 DATA 141, 193, 255, 76, 26 
, 194, 169, 25, 141, 185, 
7, 169, 1 

10310 DATA 76, 56, 194, 169, 32, 
141, 156, 7, 169, 32, 141 
, H6, 7 

10320 DATA 24, 173, 115, 193, 10 
5, 1, 141, 140, 193, 173, 

116, 193, 105 


1 0330 

DATA 0, 141, 

141 , 

193, 

173 


, 156, 7, 201 
, 169, 1 

, 24, 

208, 

28 

1 0340 

DATA 76, 178, 

195, 

MI , 

24 


9, 193, 169, 

1 05, 

141 , 

231 


, 193, 141, 239 



1 0350 

DATA 193, 141 

, 248 

, 193 

r 1 


41, 0, 194, 169, 24, 76, 2 


21 , 193, 0 

10360 DATA 24, 138, 105, 6, 170, 
189, 150, 195, 141, 122, 
193, 189, 151 

10370 DATA 195, 141, 126, 193, 1 
41 , 1 34 , 1 93, 1 89, 1 52, 1 9 
5, 141, 127, 193 

10380 DATA 189, 153, 195, 141, 1 
47, 193, 189, 154, 195, 14 
1, 155, 193, 189 

10390 DATA 155, 195, 141, 169, 1 
93, 76, 122, 193, 141, 227 
, 193, 141, 244 

10400 DATA 193, 24, 173, 115, 19 
3, 105, 1, 141, 115, 193, 
173, 116, 193 

10410 DATA 105, 0, 141, 116, 193 
, 24, 173, 120, 193, 105, 

1 , 141, 120 

1 0420 DATA 1 93, 1 73, 1 21 , 1 93, 1 
05, 0, 1 41 , 1 21 , 1 93, 1 60, 
0, 162, 0 

10430 DATA 232, 208, 253, 232, 2 
00, 208, 249, 76, 10, 196 
10440 DATA 56, 126, 233, 80, 233 
, 233, 56, 40, 56, 123, 23 

3, 2, 233 

10450 DATA 233, 56, 1, 24, 119, 
105, 0, 105, 105, 24, 1, 2 

4, 125 


10460 DATA 105, 39, 105, 105, 24 
, 40 , 1 59, 1 6b, 1 94 , 201 , 
224, 231, 3 


1 0470 

DATA 10, 

37, 134, 105, 

71 , 


59, 137 

, 140, 64, 192, 

19 


2, 192, 

1 92 


1 0480 

DATA 192 

, 1 92, 1 93, 1 93 

, 1 


93, 194, 

1 93, 1 94 , 1 94 , 

19 


4, 194, 

194, 255 


10490 

DATA 1, 

255, 1, 255, 0, 

24 


, 105, 40, 40, 105, 24, 

56 


/ 233 



1 0500 

DATA 2, 

1, 233, 56, 56, 

23 


3, 80, 40, 233, 56, 24, 

10 


6, 1 



1051 0 

DATA 1, 

105, 24, 255, 0 

, 2 


55, 0, 133, 194, 173, 127, 
193, 201 


1 0520 

DATA 

40, 

208, 

5, 

1 69, 

80 , 


76, 

212, 

195, 

201 

, 80 

, 208 


, 5 1 

169 





1 0530 

DATA 

40, 

76, 

21 2, 

195 

, 201 


, 1, 

208 

, 5, 

1 69, 

2, 

76, 2 


12, 

195 





1 0540 

DATA 

169 

, 1, 

141 , 

235 

, 195 


, 173, 122, 193, 141, 230, 
195, 173, 126 

10?50 DATA 1 93 , 1 41 , 234 , 1 95, 1 
41, 243, 195, 24, 173, 76, 
194, 105, 2 

10560 DATA 234, 141, 249, 195, 1 
73, 77, 1 94 , 1 05, 0, 1 41 , 


25 



250, 195, 173 

10570 DATA 76, 7, 201, 24, 208, 
8, 165, 194, 141, 232, 193 

, 76, 151 

1 0580 DATA 1 93, 76, 1 74 , 1 93 , 1 7 
3, 227 , 1 93, 1 41 , 43, 1 96 , 
141, 60, 196 

1 0590 DATA 1 73, 232, 1 93, 1 41 , 4 
8 , 1 96, 141 , 65, 1 96 , 173, 
231, 193, 141 

10600 DATA 55, 196, 141, 47, 196 
, 141 , 64 , 1 96, 1 41 , 72, 1 

96, 24, 173 

10610 DATA 76, 194, 105, 1, 141, 
76, 194, 173, 77, 194, 10 
5, 0, 141 

10620 DATA 77, 194, 24, 173, 79, 
194, 10?, 1, 141, 79, 194 
, 173, 80 

10630 DATA 194, 105, 0, 141, 80, 
194, 76, 133, 198, 173, 1 
85, 7, 201 

10640 DATA 10, 208, 25, 169, 56, 
141, 82, 193, 173, 87, 19 

3, 201 , 1 

10650 DATA 208, 5, 169, 40, 76, 

1 06 , 1 96, 1 69, 1 , 1 41 , 87 , 

193, 76 


1 0660 

DATA 124, 196, 

1 73 

, 65, 

7, 


201, 10, 208, 

, 76, 89 

28, 

1 69, 

24 

1 0670 

DATA 196, 173, 

82, 

193, 

20 


1, 56, 208, 5, 
6, 138, 196 

1 69 

, 233 

, 7 

1 0680 

DATA 169, 105, 

1 41 

, 86, 

1 9 


3, 141, 94, 193 

, 76, 64 

, 1 


97, 76, 104 




1 0690 

DATA 198, 192, 

76, 

235, 

1 9 


2, 141, 184, 192, 

173, 

82, 


193, 201, 56 

10700 DATA 240, 1, 96, 173, 87, 

1 93, 201 , 40, 208 , 6, 1 69, 
80, 141 

10710 DATA 184, 192, 96, 169, 2, 
76, 174, 196, 173, 48, 19 
2, 141, 233 

10720 DATA 196, 173, 60, 192, 20 

1 , 39 , 208 , 5, 1 69 , 80, 76 
, 221, 196 

10730 DATA 201, 0, 208, 5, 169, 

2 , 76, 221 , 1 96, 201 , 80 , 
208 , 5 

10740 DATA 169, 40, 76, 221, 196 
, 169, 1, 141, 238, 196, 1 
73, 59, 192 

10750 DATA 141, 237, 196, 141, 2 
45, 196, 24, 173, 64, 194, 
105, 2, 141 

10760 DATA 251, 196, 173, 65, 19 
4, 105, 0, 141, 252, 196, 
173, 76, 7 


10770 DATA 201, 32, 208, 8, 165, 



194, 141, 
, 197, 76 

86, 

193, 76, 

1 2 

1 0780 

DATA 100, 

1 92, 

173, 60, 

1 9 


2, 201 , 80 
, 76, 44 

, 208 

, 6, 162 

, o 

1 0790 

DATA 197, 

201 , 

39, 208, 

5, 



162, 4, 76, 
0, 208 

44, 

1 97 , 201 , 

1 0800 

DATA 5, 162, 

25, 

76, 44, 1 


97, 162, 12, 

, 232, 142 

142, 

103, 193 

1 0810 

DATA 57, 194 

, 232 

, 142, 62 


, 194, 232, 

142, 

69, 194, 


165, 194, 76 

10820 DATA 84, 192, 173, 82, 193 
, 201, 24, 208, 3, 76, 91, 
197, 173 

10830 DATA 87, 193, 201, 1, 208, 

5, 169, 2, 76, 105, 197, 


1 0840 

169, 80 

DATA 76, 105, 

197, 173, 

87 


, 1 93 , 201 , 1 , 

208, 5, 

1 69 

1 0850 

, 0, 76 

DATA 105, 197, 

169, 39, 

1 4 


1 , 60, 1 92, 169, 96, 1 41 , 

1 0860 

61 , 197, 32 
DATA 12, 197, 

169, 76, 

1 41 


, 61, 197, 76, 

147, 198 

, 2 

1 0870 

08, 3, 76 

DATA 176, 197, 

201, 17, 

20 


8, 3, 76, 176, 

197, 201 

, 1 

1 0880 

9, 208, 3 

DATA 76, 176, 

197, 201, 

20 


, 208, 3, 76, 

99, 198, 

201 

1 0890 

, 21, 208 

DATA 3, 76, 99 

, 198, 201, 



24, 240, 10, 
87, 198 

201 , 

22, 

76, 

1 0900 

DATA 240, 3, 

76, 

34, 193, 


169, 2, 133, 

1 94 , 

96, 

173, 


56, 199 




1 0910 

DATA 201, 9, 

208 , 

49, 

1 69, 


0, 141, 56, 
199, 201 

1 99, 

1 73, 

57, 

1 0920 

DATA 9, 208, 

51 , 

169, 

0, 1 


41, 57, 199, 

173, 

58, 

199, 


201 , 9 




1 0930 

DATA 208, 58 

, 169 

, 0, 

141 , 


98, 199, 173, 59 

, 1 99 

, 20 


1, 9, 208 




1 0940 

DATA 68, 169 

, o, 

141 , 

59, 


199, 173, 60 

, 199 

, 201 

, 9, 


208, 84 




1 0950 

DATA 0, 24, 

105, 

1 , 141 , 5 


6, 199, 105, 

48, 

MI , 

10, 


4, 76 

10960 DATA 117, 198, 24, 1C5, 1, 

141, 57, 199, 105, 48, 14 
1,9,4 


26 



1 0970 

DATA 

169, 48, 141, 10, 

4, 


76, ' 

117, 198, 24, 105, 

1 r 


MI , 

58 


1 0980 

DATA 

199, 105, 48, 141 

r B, 


4 / 

169, 48, 141, 9, 4 

r M 


1 , 10 


1 0990 

DATA 

4, 76, 117, 198, 

24, 


105, 

1 , 1 41 , 59 , 1 99 , 

105, 


48, 

1 4 1 


1 1 000 

DATA 

7, 4, 169, 48, 141, 8 


r 4, 

141 , 9, 4, 141 , 10, 4 

11 01 0 

DATA 

141 , 10, 4, 76, 117, 


198, 

24 , 1 05, 1 , 1 41 , 

60, 


1 99, 

105 


1 1020 

DATA 

48, 141, 6, 196, 

1 69, 


48, 

141, 7, 196, 141, 

8, 


1 96, 

141 


1 1030 

DATA 

9, 196, 141 , 10, 

196, 


76, 

34, 193, 208, 3, 

76, 


99, 

1 98 


1 1 040 

DATA 

201, 32, 208, 8, 

76, 


34, 

193, 169, 2, 133, 

1 94 , 


^6, 

173 


1 1050 

DATA 

0, 220, 201, 127, 

240 


, 249, 173, 0, 0, 76, 

45, 


1 92, 

1 69 


1 1 060 

DATA 

7, 133, 195, 230, 

193 


, 165, 193, 201, 10, 208, 

1 , 9ò , 7 6 

11070 DATA156, 198, 165, 192, 20 
1, 0, 208, 3, 76, 45, 192, 

198, 193 

11080 DATA 76, 158, 192, 169, 2, 

133, 192,162,248, 76,169 

, 1 98 

11081 DATA169,128,141,4,212,169, 
129,141,4,212,76,34,193,16 
9,16,141,11 ,212,169,17 

1 1 082 DATAI 4 1 ,1 1 , 212,76,100,192, 

169.16.141.11.212.169.16.1 
41,11,212,76,34,193 

1 1 08 3 DATAI 60,4,162,0,216,232,13 

8.1 41 ,21 1,1 98,1 41 , 220,1 98, 

240.1 6,1 73,0,7,201 , 24 

1 1 084 DATA208,239,169,32,141 ,0,7 
,76,200,1 9 8,96,200,1 52,192 
,8,240,249,141,212,198 
11085 DATA141,221,198,76,210,198 

1 1 087 DATA24,76,44,1 93 
1 1 090 DATAI 62,0,1 89,36,1 93,1 57,3 
2,203,189,36,194,157,32,20 

4.232.208.241 , 1 62,0 

11100 DATAI 89,3 2,2U3,1 57,36,1 93, 
189,32,204,157,36,194,232, 

208.241 , 96 

11110 DATA162,0,1 60,252,24,1 73,3 
8,207,105,1,141,38,207,173 
,39,207,105,0 

11120 DATAMI , 39,207,24,1 73,47,2 
07,105,1,141,47,207,173,48 
,207,105,0,141 


12138 DATAO,0,0,192,224,240,136, 
136,0,0,0,3,7,15,17,17 

12139 DATA255,!29,129,129,129,12 

9.129.255 

12140 DATA254,252,250,241,224,19 
2, 128,0 

12150 DATA255,255,252,252,252,22 
0,143,7 

12160 DATA7,143,220,252,252,252, 

255.255 

12170 DATAO,128,192,224,241,250, 

252.254 
12180 DATA-1 

11130 DATA48,207,173,0,4,201 ,10, 
208,5,169,4,141,0,216,138, 
240,4,232,76,3,207 
11140 DATAI 52,240,5,232,200,76,3 
,207,96,162,0,189,60,3,157 
,0,48,232,208,247,96 
12000 DATAI 95,195,255,254,252,24 

8.252.254 

12010 DATAI 95,1 95,255,1 27,63,31 , 
63,127 

12020 DATA8,5,3,7,15,31,63,127 
1 20 30 DATAI 6,160,192,224,240,248 
,252,254 

12040 DATA254,252,248,240,224,19 
2 , 160,16 

1 2050 DATAI 27,63,31 ,1 5,7,3,5,8 
1 20 60 DATAI 2 7,63,31 ,63,127,255,1 

95.195 

12070 DATA2 54,252,248,252,254,25 

5.195.195 

12080 DATAO,0,0,0,0,0,0,0,0,0,0, 
0 , 0 , 0 , 0,0 

1 2090 DATA2 55,255,255,255,255,25 
5,255,255,36,24,60,126,153 
,255,126,24 

12100 DATA255,255,63,63,63,59,24 
1 ,224 

12110 DATA127,63,95,143,7,3,1,0 
12120 DATAO,1,3,7,143,95,63,127 
12130 DATA224,241,59,63,63,63,25 

5.255 

12134 DATA255,255,255,255,254,25 
2,248,240 

12135 DATA227,255,255,255,1 27,63 

,31 ri 5 

12136 DATAO,0,0,0,13,31,51,107,0 
,0,112,240,128,60,254,255 

12137 DATA24 8,240,224,192,192,64 
,192,128,31,15,7,3,3,2,3,1 


Leggete 
Supervic e 
Supersinc 


27 






Catalogatore 
di nastri 


MI 



Stampante opzn >nale 


Se usate il registratore per salvare i vostri prò 
grammi vi sareti resi conto di come le cassette 
si moltiplichino velocemente, e divenga presto 
molto difficile ricordare su quale nastro si trovi 
un certo programma. Questo Catalogatore vi 
aiuterò ad organizzare razionalmente la vostra 
nastroteca, compilando l'elenco dei program¬ 
mi presenti su ogni cassetta, completo della loro 
posizione sul nastro (data dalla lettura del con 
latore sul registratore) e della loro occupazio 
ne di memoria (aoc la loro lunghezza espres 
sa in bytes). Premettiamo peto che. se volete 
che il Catalogatore sia veramente efficace, i vo 
sin programmi devono essere registrati sulla 
cassetta uno di seguito all’altro, senza spazi 
vuoti. C o si ottiene facilmente con la seguente 
procedura, che la maggior parte di voi cono 
scerò, di certo ogni volta (he si deve salvare 
un nuovo programma, si posiziona corretta¬ 
mente il nastro effettuando la verifica dell'ul 
timo programma registrato sulla cassetta. 
Inizialmente il Catalogatore vi chiede se desi¬ 
derate la stampa dell'elenco dei programmi; 
infatti se possedete una stampante Cornino 
dorè o compatibile, l'elenco può ver ire auto- 
maticamente stampato su carta oltre che vi¬ 
sualizzato sullo schermo. In caso posavo vi vie 
ne ricordato di accendere la stampante, dopo 

10 FORI = 707TO725 : READA:POKKI,A:C 
K=CK+A:NKXT 

1 1 IFCK< >23 8 4THENPRI NT"{WHTjERRO 
RE NELLE DATA":END 

12 Z $=" 00":W$="{ 3 SPAZI}":BC$= 
CHR$(14) :SYSb5 517 : IFPEEK(781) 

= 4OTHENTY = 64 : GOTO14 

13 PO K E 3 b 8 7 0,8 :="{CLR}":M1=368 
76 :POKEM1+ 2,15 : GOTO 20 

14 SO = 54 272 :FORT=SOTOSO+24:POKET 
,0 :NEXT 

15 POKE5J280,0 : POKE53281 ,0 :POKES 
0 + 24,15 :POKESO + 5,17 :B$ = "{CLR} 

{ 8 DESI" 

1 6 POKESO + 6,250: POKF.SO, 1 00: POKES 
0+1,1bO 

20 DIMLO(50),N$(50),DY(50):I=1:J 
$ =CHR$(16) :CR$=CHR$(13) 


di che dovrete impostare il nome della casset 
fa. il loto (I oppure 2) e la data della catalo 
gazione; infine il programma vi chiede di riav 
volgere il nastro e di azzerare il contatore. A 
questo punto inizia l'esplorazione della casset¬ 
ta. che avviene verificando tramite una routi¬ 
ne in linguaggio macchina i programmi che ven 
gono via via incontrati, ed ogni volta vi verrà 
chiesta la lettura del contatore sul registrato 
re; in questa fase viene compilato (ed eventual¬ 
mente stampato) l'elenco. 

Se sapete già dove fini S( e l'ultimo programma. 
impostate il carattere " al posto del nume 
ro del contatore quando il registratore si fet 
merà in quel punto. Altrimenti, quando sarete 
giunti in una zona del nastro in cui siete sicuri 
che non vi siano in una zona del nastro in cui 
siete sicuri che non vi siano piu programmi, pre¬ 
mete RUN/STOP ed apparirà un messaggio di 
BREAK; digitate quindi GOIO700 e premete 
RI TURN. In entrambi i casi, comunque, sul vi 
deo comfKJre la domanda f / FNCO (S /NIC)? 
Premendo S viene mostrato sul video l'elenco 
che. se non possedete una stampante, dovre 
te trascrivere su un foglio di carta; premendo 
C entra in funzione la stampante, forrendon 
dovi una ulteriore copia dell'elenco; premen 
do N infine il programma termina. 

25 M$ = "ELENCO PROGRAMMI "+CR$ 

30 LC$=CHR$(15) :PRINTB$"(CYN J 
{RVS}CATALOGATORE DI NASTRI 
{OFF}" 

40 PRINT"{WHT}{HOME}{ 3 GIU'JSTA 
MPA (S/N)?" 

45 GETH$: IFH$ = ""THEN4 5 
50 IFH$ = "N"THEN 5 5 

52 PRINT"{RVS}{GIU'}{YEL)ACCENDI 

LA STAMPANTE":PRINT"{RVS}E P 
REMI IL TASTO F7." 

53 GETH$: IFU$< >"{F7}"THEN53 

54 H=1:GOSUB900:OPEN4,4 

55 S$ = M UNO": INPUT"{GIU' } {WHT}NOM 
E CASSETTA";CN$:PRINT"{GIU'}L 
ATO (1/2)?" 

56 GETH$ : IFH$<"1 "ORH$>" 2"THEN 56 
60 S = VAL(H$) : INPUT"{GIU' }DATA";D 
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AS:IFS=2TUENSS="DUE" 

65 CN$=CNS+"/"+S$ 

70 PRX NT"{RVS}{GIU'}RIAVVOLGI IL 
NASTRO," 

75 PRINT"{RVS}AZZERA IL CONTATOR 
E ":PRINT"{RVS}E PREMI IL TAS 
TO F7.{YEL}" 

80 GETAS:IFA$<>"{F7}"THEN80 
100 GOSUB900:CLOSE1 : IFST=-128THE 
N700 

110 SYS707:IF5T=-128THEN700 
120 Bl= PEEK(829)+256*PEEK(830) :B 
2=PEEK(831)+256*PEEK(832):BY 
(I)=B2-B1 

1 30 I FI = 1THENM$=M$+CN$+CR$+DA$:P 
RINT"{CLK}{GIU')"M$ 

140 IFl=lANDH=lTHENPRINT#4,BC$M$ 
LCSCRS 

200 L$="":GOSUB900:GOSUB900:INPU 
T"{PUR}{RVS}CONTATORE{OFF}"; 
L$: IFL$ = ""THEN200 
210 L=VAL(L$) 

220 IFI = 1THENLO(2)=L:LO{1 ) =0:GOT 
0300 

230 LO{I+1)=L 

300 FORX=0TO15:N$(I)=NS(I)+CHRS( 
PEEK(833+X)):HEXT 
350 Q$=STR$(LO(I)):LO$=LEFT$(Z$, 

5- LEN(QS))+MlD$(Q$,2) 

352 Y$=STRS(BY(I)):BY$=LEFT$(WS, 

6- LEN(YS))+MIDS(Y$,2 ) 

355 PRINT"{RED}{RVS}"LOS" {DES} 
{WHT}"N$(I)"{ 5 DES}{GRN}"BY 
$" BYTES":GOSUB900 
360 IFH=1TUENGOSUB920 
370 I FLS = "*"THENCLOSE1:GOTO700 


400 1 = 1 + 1 :GOTOl00 

700 PRINT"{WHTjSTATO I/O ="ST:GO 
SUB900:CLOSEl:LM=I:IFNS(LM)= 
""THENLM=I-1 

800 IFH = 1TUENPRI NT# 4 :CLOSE4:H = 0 
810 PRINT"{WHTjELENCO (S/N/C)?" 
812 GETDS: IFD$ = ""THEN812 
815 IFD$="N"THENEND 
820 IFDS="C"THENCLOSE4:OPEN4,4 :P 
RINT#4,BC$MSLCSCRS:H=1 
830 PRINT"{CLR}{GRN}{RVS}"CN$:FO 
RI=1TOLM 

832 Q$=STRS(LO(I)):LO$=LEFT$(Z$, 

5- LEN(QS))+MIDS(Q$,2) 

833 Y$=STRS(BY(I)):BY$=LEFT$(WS, 

6- LEN(Y $))+MID$(Y$,2) 

835 PRINT"{YEL}{RVS}"LO$" {DES} 

{WHT}"N$(I)"{DES}{GRN}"BY$" 
BYTES" 

840 1FD$="C"THENGOSUB920 

845 IFI/10<>INT(I/10)THEN 860 

846 PRINT"{WHT}PREMI UN TASTO" 

847 GETH$:IFH$=""THEN847 

848 PRINT"{CLR}" 

860 NEXT:GOTO800 
900 IFTY = 64THEN910 

905 POKEMl,232:FORS=lTO50:NEXT:P 
OKEMl,0:RETURN 

910 POKESO+4,17:POKESO+4,16:RETU 
RN 

9 20 PRINT# 4,LOSJS + "06"N$(I)J$ + "2 
4 " BY$" BYTES"'.RETURN 
1 00 0 DATAI 69,1,170,160,0,32,186, 
255,169,0,32,189,255,169,1, 
32,213,255,96 


Dragon 



l*c$Danbo + |oys'.K.k 


Questo corto, ma eccitante, programma può 
fare ritornare il giocatore ai tempi dei principi 
e dei draghi, ma questa volta si è nei panni 
del drago affamalo che. invece di mangiare uo¬ 
mini mungerà mele o frittelle ed altre delizie 
premendo il tasto [ire. e girovagherà all'ir ter¬ 
no della stanza delle delizie guidato dal pro¬ 
prio joystick. 

Purtroppo i buoni cibi non sono immobili ma 
si muovono casualmente. 

Si hanno 60 secondi per mangiarne il maggior 


numero possibile ed a pur leggio vena visuali/ 
iato in alto delio scherno (esso viene calcolato 
a seconda della distanza del cibo). 

Ogni volta che il simpatico dragone "munge 
rà" qualcosa, verrà dato il punteggio e 10 se 
condì di bonus. 

Se il cibo viene colpito negli ultimi 5 secondi (du 
rame questi ultimi il bordo dello schermo cam 
bia) il tempo ritornerà ai 60 secondi iniziai:. 
Quando il gioco sara terminato il record verrà 
visualizzato e... in bocca al drago!!! 
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20 POKE36879,233 :PRINT"{RVS) 

{CLR}{ 11 GIU'H 8 DES}DRAGON 

I " 

30 POKE52,28 :POKE56,28 :CLR 
50 POKE368 69,255 

60 FORC = 7432TO7551 :READA:POKEC,A 
: NEXT 

65 DATA8,42,28,1 27,28,42,8,0,8,1 
27,93,28,127,73,28,28 
70 DATA187,0,238,0,187,0,238,0,1 
27,65,1 27,65,1 27,65,1 27,65 
8 0 DATA85,255,85,0,0,0,0,0,1 70,2 
55,170,0,0,0,0,0,28,8,28,8,28 
,8,28,8,8,28,8,28,8,28,8 

90 DATA28,3,3,18,58,126,252,72,1 
08,192,192,72,92,126,63,18,54 
,28,28,73,127,28,93,127,8 
95 DATAO, 56,1 24,230,1 98,206,1 24 , 
56,68,170,170,146,170,68,186, 
0,32,16,108,254,254,254,124 
97 DATA40,255,255,255,255,255,25 
5,255,255 

99 PRINT"{CLR)":POKE36879,23 3 :X = 
7701 : FORT-1T02 3:POKEX,47:POKE 
X + 30720,1 :X = X + 2 2 :NEXT 

100 X = 7724 :FORT=1T021 :POKEX,35:P 
OKEX+30720,2 :X = X+1 :NEXT 

1 0 5 X = 77 66:FORT=lTOl9 :POKEX,35:P 
OKEX+30720,2:X=X+22:NEXT 
1 1 0 X = 7746 :FORT=lTOl9 :POKEX,35:P 
OKEX+3 07 2Q,2:X=X+22:NEXT 
115 X = 8 16 4 :FORT=lT0 21 :POKEX,35:P 
OKEX+307 20,2:X = X-+1 : NEXT 
120 X= 7768 :FORY=1T06 

125 FORA=1T02:FORT=1T021:POKEX,3 
5: POKEX+ 30720,2 :X=X + 1 : NEXTT : 
X=X+1:NEXTA 
1 30 X = X + 2 2 :NEXTY 
1 35 X = 774 7 :FORY = 1T0 7 
140 FORT=lTOl9 :POKEX,36:POKEX+30 
720,1 :X=X+22:NEXTT 
145 X = X + (-415) :NEXTY 
170 V= 0 

180 W=0:H=60:POKE7701,47:POKE772 
3,47:POKE7701+30720,1:POKE77 
23+30720,1 
185 POKEQ+2,0 

190 TI$="000000":D=8152:Z = 4 3 : Y = - 
22:P=0:T=190:N = 1 30 :E=30720 :L 
=-22:O=0:K=39:R=36 
195 S = 7756:J = 37151 :POKEJ+3,255 :P 
OKEJ+3,127:G=0:P=0:POKE36879 
,233:Q=36874:N=15:POKEQ+4,N 
200 A = INT{RND(1 )* 4)+1 :B=I NT(RND( 
1 )* 3) + 1 :B = B* 3 

215 IFA=1THENM=+22:C=44:G=36 
220 IFA=2THENM=-22:C=44:G=36 
225 IFA = 3THENM = -1 :C = 46:G=32 
230 IFA=4THENM=+1:C=46:G=32 
235 IFPEEK(S+M)=35THEN200 


245 POKES,G:POKES+E,1:S=S+M:POKE 
S,C:POKES+E,4 
250 IFY = 0THEN300 
255 POKEQ,T+(Y-2) 

300 X=PEEK(J+l)AND128:JE=-(X=.): 

X = PEEK{J) :JS = - ( (XAND8) = . ) 

305 JW = - ( (XANDl 6) =. ) :JN = - ( (XAND4 
) = .) :FB = - ((XAND 32) = .) 

307 POKEQ,0:POKEQ+3,0 

30 9 IFFBTHENI=D + L:GOT08 00 

31 0 IFJNTHENY = -22 :L=-22 :K=39 :Z =4 

3 :R = 3 6 : GOTO 3 3 0 

31 5 IFJETHENY = 1 :Z = 41 :L=1 :R=32 :K = 
37 :GOTO33 0 

320 IFJ STHENY = 2 2 :L=22:K=40:R=36: 
Z = 34 : GOTO3 3 0 

325 IFJWTHENY = -1 :L=-1 :K = 38:R = 32: 

Z=42:GOTO330 
327 Y=0 

330 IFPEEK(D+Y)=35THENY=0 

3 3 5 IFY = 1ORY = -1THENF = 32 : GOTO 34 5 
340 F= 36 

345 POKED,F:POKED+E,1:D=D+Y:POKE 
D,Z:POKED+E,0:1FY = 0THEN350 
347 POKEQ,T+Y 

350 PRINT"(RVS)(HOME){WHT}TEMPO: 

{BLK}";H-INT(TI/60)(SIN) " 
:PRINT"(RVS)(HOME){ 10 DES) 
(WHT)PUNTI:(BLK}{ 5 SPAZI) 

{ 5 SIN ) " ; W 

352 PRINT"(RVS)(HOME)(GIU ’ ) 

( 6 SPAZIiRECORD:(BLK) 

( 8 SPAZI ) { 8 SIN}" ; V 
355 IFTI/60 > = HTHEN 4 0 0 
360 IFTI/60 > = H-5THENPOKE 3 6 8 7 9,23 
8 

365 B = B-1 : IFB=0THEN200 
370 GOTO215 

4 00 POKKQ+4,0 :POKED,F:POKED + E, 1 : 

POKES,G:POKES+E,1:IFW>VTHENV 
= W 

410 PRINT"(RVS)(HOME)(BLK) 

{ 6 SPAZI}GAME( 2 SPAZI)OVER 
( 28 SPAZI}":FORT=1TO1 000 : NE 
XT 

420 PRINT"(RVS}(HOME)(WHT) 

( 4 SPAZI)PREMI UN TASTO 

( 4 SPAZI)RECORD:(BLK)";V 
430 GETA$: IFA$=""THEN4 30 

440 PRINT"(HOME)( 40 SPAZI}":GOT 
01 80 

800 IFPEF.K ( I ) = 35THEN81 0 
802 POKEI,K:POKEI+E,7 :POKEQ+ 2,T+ 
(0*5) :0=0 + 1 : IFO = 1 0THEN81 4 
804 I=I+L 
806 IFI=STHEN900 
808 GOTO800 

81 0 IFPEEK(I)= 3 5ANDO = 0THEN 310 
812 I = I - L 

814 POKEQ+2,T+(0*5) 

815 POKEI,R:POKEI+E,1:I=I-L:0=0- 
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1 :IFO=OANDU=1THENPOKED,R:POK 
ED+E,1 :U = 0 : GOTO18 5 
81 6 IFO = OTHENPOKEQ + 2,0 : GOTO310 
81 8 GOTO 81 4 

900 POKEI,33:POKEI+E,7 :FORM=180T 
0235STEP2:POKEQ+2,M:NEXT 

901 POKEQ + 4,N: FORM = 180TO2 3 5STEP2 
:POKEQ+2,M:FORN=1TO10 :NEXTN: 
NEXTM:POKEQ+2,0 

902 POKEQ+4,0: W=W +(H-INT(TI/60)) 
: H=H-5 : IFH= 5THENH = 60 

904 U=1:0=0+l:GOT0814 


Guida per l’input dei 
programmi sul TI 99/4A 

A causa del sistema di codifica utilizzato, 
possono capitare in alcune linee delle im¬ 
provvise “andate a capo" delle quali, natu¬ 
ralmente, non va tenuto conto in fase di digi¬ 
tazione. 

Vi potrà capitare, a volte di trovare nei listati 
di programmi per TI 99/Aa alcuni caratteri 
sottolineati. La sottolineatura rappresenta 
una particolare codifica dei tasti di controllo: 
dovrete quindi premere il tasto indicato dal 
carattere insieme al tasto CONTROL. 

Ad esempio, se trovate A_ dovrete battere 
CONTROL + A; se trovate -, dovrete battere 
CONTROL + SPAZIO, e cosi via. 


Per ricevere gli arretrati di 




compilare il seguente tagliando: 



Compilare ed inviare in busta chiusa a: 
via Rosellini 12 - 20142 Milano - Tel. 02/6888228-683797-6880841-2-3 


Nome _ 

Cognome _ 

Indirizzo _ 

CAP _ Città _ Prov. _ 

Desidero ricevere i seguenti numeri arretrati di 

IP^I- 

a L. 2.000 cad. per un totale di L. a mezzo 

□ assegno allegato □ contanti allegati 
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A Milano, 

in via Mascheroni 14. 
la prima software 
libreria italiana 

Un tempo si andava in libreria per il gusto della 
scoperta, per il piacere di esser informati sulle novità. 
Per incontrarsi, discutere, chiedere un consiglio al 
libraio-amico. Tutto questo è ancora possibile, per un 
prodotto assolutamente nuovo: libri e riviste di 
informatica italiani ed esteri, software, giochi. 

Dove? Alla Libreria JACKSON. 

La prima software - libreria italiana. 

A Milano, in via Mascheroni 14. 

Tel. 02-437385 

Vieni a trovarci: ti aspettiamo. 



